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Version: *v04-001' 


RARER AAA AEE AA EAE AERA ARATE TERERE EERE EEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
ONLY IN ACCORDANCE WITH THE TERMS OF raver Tit AND WIT 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. SOFTWARE OR ANY 
COPIES THEREOF a iy BE PROVIDED OR OTHERWISE MADE AVAILABLE T 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 


* 
’ 
x 
* 
* 
. 
. 
* 
* 
* 

TRANSFERRED. * 
* 
* 
* 
« 
* 
* 
. 
* 
* 
x 


wn” 
—-o=9 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
ConPohatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
{* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


@eeeene eee eee aeen 


PGS eee Tet tTe iter tii ri iti titi titi titi iti titi i iii titi iti tisiitiitiitiiiiity 


FACILITY: VAX/VMS System Macro Libraries 
ABSTRACT: 


This file contains the SDL source for all aperes ing system control 
blocks, from F to L. That is, all control blocks from FAA to L2ZZ. 


ENVIRONMENT: 
n/a 


MODIFIED BY: 


v04-001 SRB0145 teve Beckhardt 6-Sep-1984 
Moved CDRPSL_VAL9 into regular CDRP out of Tone CORP. 


v03-099 MSH0063 Michael S. Warvey 31-Jul-1984 
Eliminate GSNAMOFF cell from KFE. 


v03-098 ACG0440 Andrew F Goldstein 23-Jul-1984 11:49 
ref count and classification valid flag to ORB in the FCB; 


{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{-- 

{ 

| AUTHOR: The VMS Group CREATION DATE: 11-Aug-1976 
Add re 

; add FCBSL_CACHELKID for file cache interlocks 
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v03-097 man00Ss Michael S. Harvey 20-Jul-1984 
d symbol for maximum Length of KFE. 
v03-096 CDS0006 Christian D. Saether 15-July-1984 
Add another pool to PT iBe. Add FCBSL _DIRINDX. 
v03-095 RASO319 Ron Schaefer 29-Jun-1984 
Add new structure to logical names structures: 
LNMC == the logical name table name cache structure. 
V03-094 ACG0432 Andrew C. Goldste 9-Jul-1984 21:35 
Add JIBSL_ORG_BYTLM and JIBSL “ORG ‘OSYTLM fields 
v03-093 MSH0061 Michael S. Harve 5-Jul-1984 
Add EXEONLY ieeen pe to the KFE, 
v03-092 MSHO0S8 Michael S. Harve 27-Jun-1984 


Define A new cell in the KFE to *hold the length of a 
string which will be used to more aseurete:y speg' ty 
bes araery a set of global sections for the KFE was 
created in. 


v03-091 MSHO057 Michael S. Harvey 25-Jun-1984 
Define new KFE bit used to propagate some context across 
the INSTALL REPLACE command. 


v03-090 cDdS0005 Christian D. Saether 9-May-1984 
Correct longword sisal torment introduced by ts0004. 

V03-089 MSH0041 Michael S. Harve 22-May-1984 
Add image alias Limit censtents. to SIHDDEF. 

v03-088 CDS0004 Christian D. Saether 19-Apr-1984 
esau to FCB. 

v03-087 MSH0032 Michael S. Harve 12-Apr-1984 

Xp. This cell will 


Add GSD$L_ORB for alt auees of G 
be used to locate the 
with a global section. 


v03-086 ADE0001 Alan D. BTN en 
Add IHD$V_INISHR and THASL_INISHR. 


ject Rights Block associated 
11-Apr-1984 


v0O3-085 TMKOOO0S Todd M — 
had KFESL_ORB to SKFEDEF. *this cell wilt aa a vie address 
of the Object Rights Block associated with a Known File Entry. 


v03-084 ACG041 Andrew C. Goldstein, 9-Apr-1984 11:17 
Ada locsv. ALLOC bit 


v03-083 KPLO0006 Peter Lieberwirth 7-Apr-1984 
dd IOC$V_NO TRANS to SIOCDEF. This flag tells 
IOCSTRANDEVNAM that logical name translation is 
unnecessary because the caller already did the 
translation. 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAL 
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VO3-082 TMKO0004 odd M atz 07-Apr-1984 
Change LNMTHS$L CHP a iNNTH L_ORB within $LN STRDEF to reflect 
the replacement of shareable Togical name tables’ CHIP 
protection templates with Object Rights Blocks. 


v03-081 EMD0074 Ellen Dusseault og Wide 
Define status bit IR RPSY JKEY in IRP$W_STS a 
IRPSL_KFYSESC which will“contain an address. of a 
descrip*s. describing an encryption key. 


v03-080 LMP0221 L. Mark Pilant 26-Mar-1984 9:25 
Move FCB fields around to det ine an ORB within the FCB. 
v03-079 KPLOOO0S Peter Lieberwirth 23-Mar-1984 
Fix SIOBNNDEF to track Nautilus changes. 
v03-078 SSA0021 way 23-Mar-1984 
Backed out SSAO0I?. “Bit 15 of IRPS$W_STS conflicts with 
a private definition and usage in DODRIVER. Added 
comment to warn others of impending doom. 
V03-077 wMC0077 Wayne Cardoza 23-Mar-1984 
Add hash byte to GSD. 
v03-076 ACG0408 Andrew C. Goldstein, 22-Mar-1984 23:04 
Rearrange XQP base address cells so they form descriptors 
V03-075 JwWT0169 Jim Tea aque 22-Mar-1984 
Bump image ident minori Long shareable image names 
require larger entries in the shareable image list. 
V03-074 MMD0267 Meg Dumont, 22-Mar-1984 17:05 
Add ANSI 3 file Length extension in HDR4 Label. 
v03-073 SRBO117 Steve Beckhardt 18-Mar-1984 


Added LKB$B_TSLT and LKBS$L_DLCKPRI to $LKBDEF. 
Added VAL9 and VAL10 to $IRPDEF 


v03-072 SSA0017 Sta 9-Mar-1984 
Add IRP$V_QLEN as bit ae RP$W_STS to indicate that 
the devicé queue length in the UCB has been incremented to 
account for the IRP. IOCIOPOST conditionally decrements the 
device queue ag based on the setting of this bit. 


v03-071 LMP0207 Mark Pilant 9-Mar-1984 9:02 
Add FCBS$V BADACL” to indicate that the ACL is present, but 
should not be used in protection checks. This is to note 
that the ACL has been corrupted. 


v03-070 TMK0003 Todd M 09-Mar-1984 
Add LNMX$W_HASH to SLNMSTROEF ® s definition of a logical 
name translation block. 


v03-069 ACG0399 w C. Go 
r 


Andre 28-Feb-1984 16:13 
Add SIOCDEF = flag bits to 


lds 
oc 


tein 
[OCSSEARCH 


AAA AAAAAAAABABAAPAAAAAAAAAAAAAAAAAAAAAAARARAAAAAAAAAAANA 
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v03-068 


v03-067 


v03-066 


v03-065 


v03-064 


v03-063 


v03-062 


v03-061 


v03-060 


v03-059 


v03-058 kK 


v03-057 


v03-056 


v03-055 R 


v03-054 
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£DS0005 Chris ten, ge CeethOr 28-F eb-1984 

Forgot some counters in 

CdS0002 Christian D. Saether 28-F eb-1984 

Add modules r11BDEF aa PI BCBEr 

RLRIO8SS1 i. Ceppepert Feb-1984 

Add explicit PENS : xe” * sTosse F for penTe. “NIPACKETBUF , etc. 


JwT0152 Jim Teague 77-Feb-1984 
Make changes to SISDDEF and SIHIDEF required for variable 
Length ISDs and ae shareable image f Tonanes. 


ROWO298 sigh .o 27-FEB-1984 

Define IRPSW ENDRSG 12, “a wereia in the class driver CDRP 
extension which holds the size of the most recent MSCP end 
message. 


WHMO0003 Bill 
Renamed IDB$B_COMBO_Y 


: 24-Feb-1984 
1DB$B_COMBO_VECTOR_OFF 

t 

d 

e 


atthe 
CTOR "'0 IDBSB_VECTOR now that 
SET has been added. 


h 

Rappaport 22-Feb-1984 

lL space following BIIC register 
C registers occupy an entire 


1. KDZ2 Rober 

Fix SKDZDEF and exten 
definition so that th 
virtual page. 


t 
T 
E 
L. 
fil 
BIl 


“Yaga Peter Lieberwi 6-Feb-1984 

Fix bug letveduest in vOse 058... Seublpeietions | PERNEX. 
WHMO0002 Bill Matthews 3-F eb-1984 
Added field IDB$B_ COMBO. VECTOR_OFFSET. Additional support 


for edit 51. 


LMPO188 L. Mark Pilant, 3-Feb- ty 16:22 
Add support for a stent Vices tan block in the FCB. 


PL0003 Peter Lieberwirth 3-F eb-1984 
Add SIOBNNDEF, I0 space layout for Nautilus. 


MSHO004 Michael S. Harvey 2-F eb-1984 
Redefine parts of global section descriptors to 
accomodate longer global section names. The name 
field will be variable length for local monet? and 
PFN-mapped global section descriptors, and will simply 
be lengthened for the fixed length shared memory eer tats 


HHO002 Hai ang 31-Jan-1984 
Redefine the mount iter ead in the JIB as a standard 
two-word List head 


0w0281 Ralph 0. Weber 14-JAN-1984 
Aga IRPSL_DUTUFLAGS and IRPSW_ DUTUCNTR to * ym driver CDRP 
extension. 


ACG0387 Andrew C. Goldstein, 12-Jan-1984 14:28 
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Add job mount List head to JIB; get job type codes in 
proper order 


v03-053 ACGO385 Andrew C. Goldste Pn ac he 18:30 
Make MAXDETACH and MAXJOBS J1B fet ds words 
v03-053 LJk0¢57 Lawrence J. Kenah 5-Jan-1984 
Reorder fields in JIB to speed up process creation time. 
VO3-052 ACGO0385 Andrew C. Goldstein 29-Dec-1983 13:34 
Add JIBSB_JOBTYPE field, remove JIB$V_DISxxx flags 
V03-051 WHMO001 Pit, mer eneue ae pag igs = 
Added the field IDB$8_COMBO CSR OFFSET. Replaced t 
field IDBSB_VECTOR seek 1DB$8_COmMB0 VECTOR in S1DSDEF. These 
changes allow a driver for devices Tn a combo device to find 
the beginning of the CSRs and Vector table for the combo device. 
vO3-050 RLRKDZ1 RObert L. Rappaport 99-Dec-1983 
Add abi Lity to get to BIIC registers thru SKDZDEF so 
that a node can read its own BIIC registers without 
having to know wnat node it is. 
V03-049 RSHO087 t Hanna 07-Dec-1983 
Move $KGBDEF to STARDERFLY SDL 
VO3-048 RLRKDZ Robert L. Rappaport 6-Dec-1983 
Aad SKDZDEF, Virtual memory offsets to internal KD211 
registers and devices. 
v03-047 ACG0377 Andrew C. Goldstein, 6-Dec-1983 11:46 
Realign JIB fields after wMC0020 
V03-046 SRB0106 Steve Beckhardt 18-Nov-1983 
Added EPID field to LKB, reduced LKBS$L _REFCNT field to a word. 
V03-045 RLRIO8SS Robert L. Rappaport 8-Nov-1983 
Aad STORSSDEF, Scorpio 1/0 space Layout. 
v03-044 KPLO002 er Lieberwirth 17-Oct-1983 
Add IMP$V_RUH_ SYNCH to SIMPDEF. 
v03-043 $SA00002 Sta ay 30-Sep-1983 
had IPL$_PERFMON to MSiPLD F. 
VO3-042 TMKO0002 Todd M 18-Aug-1983 
Add LNMTH$V_GROUP and CNATHSV. SYSTEM to SUNS RDEF. 
v03-041 KDM0068 Kathleen D. Morse 5-Aug-1983 
Add SIOUVIDEF. 
vV03-040 RSH0047 Scott Hanna 24-Jul-1983 
Add 2 6 ID definitions to SKGBDEF 
v03-039 RNGOO39 Rod N. Gama 22-Jul- 


1983 
Add new DECnet FAST Bay ean definitions Sit IDEr. 
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v03-038 


v03-037 


v03-036 


v03-035 


v03-034 


v03-033 


v03-032 


v03-031 


v03-030 


v03-029 


v03-028 


v03-027 


v03-026 


v03-025 


v03-024 
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LJKO217 e J. Kena 26-Jun-1983 
Put IHD$V _DBGDMT” feck nto siDDEF 
LJKO214 Lawrence J. Kena un-1983 


Remove Image Control Block (nee ee) unt t orton naming 
issues are resolved. 


RPGO0036 Bob Gro 24-Jun-1983 
Add new IHDDEF and ISDOLDDEF. 

CdS$0001 Christian D. Saether 23-Jun-1983 
Add FCBSL_ACCLKID field. 

RPGO034 Bob Grosso 23-Jun-1983 


Add new Known File structures, KFRH, KFE, KFD, KFPB, 
as well as ICB which is for the image activator. 


RNGOO33 Rod Gamache 21-Jun-1983 
Added IRPS$Q_STATION to over Ley IRP$Q_NT_PRVMSK. 
SRBOO95 Steve Beckhardt 21-Jun-1983 
Added LKBSM_PROTECT status bit 

ROW0185 Ralph 0. Weber 21-JUN-1983 


Add block transfer Fields to the connection manager CDRP 
extension to IRP definition. 


LY0382 Larry Yetto 16-JUN-1983 14:16:40 
Add IRP$V_JNL_REMREQ to IRP STS flags 
SRB0091 Steve Beckhardt 11-Jun-1983 


Removed several state codes from $LKBDEF. Renamed other 
state codes. 


SRB0087 Steve Beckhardt 24-May-1983 
Added RESEND status bit to $LKBDEF 

SRB0082 Steve Beckhardt 28-Apr-1983 
Removed message queue from CDRP in SIRPDEF 

TMKO0001 Todd M. 14-APR-1983 


Make several ay es to SC HAST RDEF. Delete LNMTHSL_LOGNAM, 
(NROSY NODELETES TABLE with LNMTHSV DIRECTORY, and add 


ROWO0181 Ralph 0. Weber 14-APR-1983 
Add IRPS$L_VAL7 and RP$L_VAL Eventually, these fields 
spoule replace currently” used fields. However, the current 
fi elds cannot be deleted yet. Therefore, the €DRP and the 
IRP will be bigger than we want for a few weeks. 
MMD0138 Reg pune 1s~Agr=1963 19 10:17 
Add HD4DEF which will on FR extension to HDR1 FILE IDENTIFIER 
field on magnetic tape 
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v03-023 grater? teve Beckhardt 66-Apr-1983 
More changes to SLKBDEF. 


eee TS tnt oe Ce ae | 


Added some 

v03-021 $1J3073 Steven T. Jeffreys 25-Mar-1983 

- Added FCBSL _HIGHWATER 

= Added FCBSV_ERASE 

v03-020 wMC0020 ne Cardoza 15-Mar-1983 
Add MAXJOBS and MA DETACH to JIB 

v03-019 SRB0069 Steve Beckhardt 9-Mar-1983 
Added NOQUOTA status bit to LKBDEF. 

v03-018 KTA3037 erbey T. Altmann 11-Feb-1983 
Add FLOAT definition to i0750DEF. 

V03-017 MIROO22 hael I. Rosenblum 19-Jan-1983 
Add terminal GA; IDB definition. 

v03-016 ROWO156 Ralph 0. Weber 11-JAN-1983 


Add connection manager extension to CORP portion of the IRP. 
Remove hard coded filler offsets in IRP to be symbolic. 
Reorder connection manager extension to CDRP so that the VAL1 
through VAL6 fields overlay the fields in the block transfer 
CDRP extension. 


v03-015 wMC0015 Wayne Cardoza 9-Jan-1982 
Add back KFPDEF which was eee tdentatly semen in v03-012. 
v03-014 ACG0307 Andrew C. Goldstein, 7-Jan-1983 16:30 
Remove privilege mask and UIC from JIB 
v03-013 SRB0060 Steve Beckhardt 7-Jan-1983 
Added more definitions to S$LKBDEF 
v03-012 ACG0307 Andrew C. Goldstein pordec= 1982 17:42 
Add rights database definitions (SKGBDEF 
v03-011 SRB0057 Steve Beckhardt 15-Dec-1982 


in SLKBDEF for distributed lock manager. 


v03-010 ane Steve Beckhardt 14-Dec-1982 
changed IPL$ SYNCH ond IPL$_TIMER to be 8 ttaabaed of 7). 
Added IPL$_TIMERFORK equal fo 7. 


v03-009 ywt0073 Neaes 09-Dec-1982 

Add SIHSDEF fields” IHS$L_DMTVBN and IHS$L ont VES for 
description of $y D8 er module/psect informa 

Also define IHD$V_DBGDMT bit ty THDSL "CNKFLAGS a SIHDDEF 


to indicate presence of above fields.” 


Reordered fields and added new fields and definitions 
v03-008 ACG0303 Andrew C. Goldstein, 9=-Dec-1982 15:12 


AAA AAAAAAAAASASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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Add FILL attribute to extraneous names 


v03-007 ene i DMWalp 1-Dec-1982 
Added SLNMSTRDEF 


v03-006 vette Jeffr 19-Nov-1982 
ange IMPSC _NPIOFILES” A. “6 "ee that the Process Perm 
iy) RB tablés take up a full page. 


v03-005 KPLO001 ieberwirth 13-Oct-1982 
Add IMP$V RECOVERY. to IMPDEF 


v03-004 rcno0es Ratrbeys 11-Aug-1982 
Add 10790$AL _PERABS” to “$10 ODEF 
vO3-003 JwHO001 Jeffrey W. Horn 29-Jul-1982 
Add IMPS$V_RUH to SIMPDEF. 
v03-002 TCM rudy €. Matthews 28-Jul-1982 09:45 


nge SiOTYVEF to $107900EF.” “Renove 17 790especi tic 
Teitions (SPAMMDEF and SBIA register definitions) to 
790-specific definition file, LSYSLOA.SRCJ790DEF .MDL. 


v03-001 LMP0036 . Mark Pilant, 28-Jun-1982 13:37 
Add space in the FCB definition’ for the Access Control List 
queue Listhead. 


AOA AAA AAA AAA AAA AAA AAAAA 


module $F11BDEF; 
/v+ 


A FI1B = System wide F11BXQP structures. 

/* This structure is ac yal ty pecs of the XQP impure area and 
/* is gerntes to by cTESCL 1BXQP, That gett is initialized 
a during process creation by the XQP initialization code. 


/e- 


aggregate FIIBDEF structure prefix F11B$; 
XQPQUEUE quadword; XQP per-process queue. 

DISPATCH longword unsigned; /* Address of XQP dispatch routine. 
CODESIZE lLongword unsigned; /* Size of XQP code in bytes. 
CODEBASE Longword unsigned; /* Base address of XQP code. 
IMPSIZE Longword unsigned; /* Size of impure area in bytes. 
IMPBASE Longword unsigned; /* Base address of XQP impure area. 


end F11BDEF; 
end_module $F11BDEF ; 


~ 
7d 
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module SF1IBCDEF; 

S FIIBC = Files 11 Block Cache 
oe Header area which describes block cache used by F11BXxQP. 
/t- 


aggregate FIIBCDEF structure prefix F11BC$; 
BUFBASE Longword unsigned; /* 


BUFSIZE Longword unsigned; /* Size of buffer area in bytes. 

SIZE word unsigned; /* Standard size field. 

TYPE byte unsigned; /* Standard type field. 

SUBTYPE byte unsigned; /* Standard subtype field. 

REALSIZE longword unsigned; /* Structure size as a longword. 
LBNHSHBAS es unsigned; /* Base of LBN hash table. 

LBNHSHCNT wor ynateneds /* Count of entries in LBN hash tbl. 
BFRCNT word unsigned; /* Total buffer count. 

BFRDBAS Longword unsigned; /* Buffer descriptor base address. 
BFRLDBAS longword unsigned; /* Buffer lock descriptor base addr. 
BLHSHBAS an pe unsigned; /* Base addr of buffer lock hash tbl. 
BLHSHCNT word unsigned; /* Num entries in buff lock hash tbl. 
FREEBFRL word unsigned; /* First free buffer lock block. 
constant NUM_POOLS equals 4; /* Number of buffer pools. 


POOL_LRU quadword dimension F11BCSK_NUM_POOLS; /* Per pool LRU Listhead. 
POOL _WAITQ quadword dimension F11BCSK_NUM_POOLS; /* Per pool cache wait Listhead. 
POOLAVAIL Langyere dimension F11BCS$K_NUM_POOLS; /* Available buffers per pool. 


POOLCNT word dimension F11BC$K_NUM_POOLS; /* Count of buffers per pool. 
AMBIGQFL longword unsigned; /* Ambiguity queue forward Link. 
AMBIGQBL longword unsigned; /* Ambiguity queue back Link. 


/* 
. Cache performance counters. 


PROCESS_HITS longword unsigned; /* In-process buffer hits. 
VALID_HTTS longword unsigned; /* Valid buffer cache hits. 
INVALID_HITS Longword unsigned; /* Buffer found but invalid contents. 
MISSES Tongword unsigned; /* Buffer not in cache at all. 
DISK_READS longword unsigned; /* Buffer reads from disk. 
DISK_WRITES lLongword unsigned; /* Buffer writes to disk. 
CACHE_SERIAL lLongword unsigned; /* Cache serialization calls. 

CACHE STALLS lLongword unsigned; /* Cache serialization stalls. 


BUFFER_STALLS longword unsigned; /* Stalls for lack of buffers. 


Base address of buffer area. 
CACHENAME character length 24; /* Name of this cache (display only). 


SYSDEFFL.SDL;1 

end FIIBCDEF; 

/* 

ce Buffer descriptors. 


aggregate BFRDDEF structure prefix BFRDS; 
QFL longword unsigned; /* 


QBL longword unsigned; /* 
LBN Longword unsigned; /* 
UCB Longword unsigned; /* 


LOCKBASIS lLongword rakes /* 
SEQNUM Longword unsigned; / 


FCAGS byte unsigned; * 
FLAGS BITS structure fill; 

bitfield length 2; /* 
IRTY bitfield mask; /* 
VALID bitfield mask; * 

end FLA ITS; 

end FLAGS_OVERLAY; 
BIYPE byte unsigned; /* 
BFRL word unsigned; /* 
CURPID word unsigned; /* 
NXTBFRD word unsigned; ® 


end BFRDDEF; 
/t 
Me Buffer lock descriptor blocks. 


aggregate BFRLDEF structure prefix BFRLS; 
NXTBFRL word unsigned; /* 
REFCNT word unsigned; /* 
LKID longword unsigned; /* 


LCKBASIS longword unsigned; /* 
PARLKID Longword unsigned; /* 


end BFRLDEF; 
end_module $F11BCDEF ; 
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Queue forward Link. 
Queue back Link. 


LBN of buffer. 
UCB of buffer. 


Unique file identifier. 
Buffer validation sequence number. 


Status flags. 


Pool number of this buffer. 
Buffer has been modified. 
Buffer has been read from disk. 


Buffer type. 

Index to buffer lock. 

Index of current process. 

Index of next BFRD (hash chain). 


Index to next BFRL in List. 
Number of buffers backed by this Lock. 
Lock ID of buffer lock. 


Unique file identifier. 
Unique volume set identifier. 
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poate SFCBDEF ; 
. FCB - FILE CONTROL BLOCK 


/* THERE IS ONE FILE CONTROL BLOCK FOR EACH UNIQUELY ACCESSED FILE ON A 
/* VOLUME. THE FILE CONTROL BLOCK PROVIDES THE VEHICLE WHEREBY SHARED 
. ACCESS TO A FILE MAY BE CONTROLLED. 
aggregate FCBDEF structure prefix FCBS$; 
FCBFL Longword unsigned; /* FCB LIST FORWARD LINK 
FCBBL Longword unsigned; /* FCB LIST BACKWARD LINK 
SIZE word unsigned; /* SIZE OF FCB IN BYTES 
TYPE byte unsigned; /* STRUCTURE TYPE OF FCB 
ACCLKMODE byte unsigned; /* Access lock mode. 
EXFCB longword unsigned; /* ADDRESS OF EXTENSION FCB 
WLFL Longword unsigned; /* WINDOW LISTHEAD FORWARD LINK 
WLBL Longword unsigned; /* WINDOW LISTHEAD BACKWARD LINK 
REFCNT word unsigned; /* Total references to this FCB. 
ACNT word unsigned; /* FILE ACCESS COUNT 
WCNT word unsigned; /* FILE WRITER COUNT 
LCNT word unsigned; /* FILE LOCK COUNT 
TCNT word unsigned; /* COUNT OF TRUNCATE LOCKS 
STATUS_OVERLAY union fill; 
STATUS word unsigned; /* FILE STATUS 
STATUS_BITS structure fill; 
DIR bitfield; /* FCB IS A DIRECTORY LRU ENTRY 
MARKDEL bittietd: /* FILE IS MARKED FOR DELETE 
BADBLK bitfield; /* BAD BLOCK ENCOUNTERED IN FILE 
EXCL bitfield; /* FILE IS EXCLUSIVELY ACCESSED 
bitfield; /* FILE IS AN INTERMEDIATE SPOOL 
RMSLOCK bitfield; /* FILE IS OPEN WITH RMS RECORD LOCKING 
ERASE bitfield; /* ERASE DATA WHEN BLOCKS REMOVED FROM FILE 
BADACL bitfield; /* ACL IS CORRUPT 
STALE bitfield; /* Reconstruct FCB from header. 
DELAYTRNC bitfield; /* Delay truncation. 
end STATUS BITS; 
end STATUS OVERLAY; 
FID_OVERLAY union fill; 
FID word unsigned dimension 3; /* FILE IDENTIFICATION 
FID_FIELDS structure fill; 
FID_NUM word unsigned; /* FILE NUMBER 
FID_SEQ word unsigned; /* FILE SEQUENCE NUMBER 
FID_RVN_OVERLAY union fill; 
FID_RVN word unsigned; /* RELATIVE VOLUME NUMBER 
FID_RVN_FIELDS structure fill; 
FID_RVN byte unsigned; /* SHORT FORM RVN 
FID_NAX pyse unsigned; /* EXTENDED FILE NUMBER 
end FID_RVN_FIELDS; 
end FIB_RVN_OVERLAY; 
end FID_FIECDS; 
end FID_OVERLAY; 
SEGN word unsigned; /* FILE SEGMENT NUMBER 
STVBN Longword unsigned; /* STARTING VIRTUAL BLOCK NUMBER 
STLBN Longword unsigned; /* STARTING LOGICAL BLOCK NUMBER 
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HDLBN Longword unsigned; /* LBN OF FILE HEADER 
FILESIZE longword a pe /* FILE SIZE iN BLOCKS 
EFBLK By wy m— gne /* END OF FILE VBN 
VERSIONS word unsigned; /* MAXIMUM NUMBER OF VERSIONS IN DIRECTORY 
DIRSEQ word unsigned; /* DIRECTORY USE SEQUENCE NUMBER 
HIGHWATER Longword unsigned; /* HIGH WATER MARK IN FILE 
ACCLKID Longword unsigned; /* Access lock ID. 
LOCKBASIS longword unsigned; /* Lock basis for this FCB. 
TRUNCVBN Longword unsigne /* VBN for delayed truncation. 
CACHELKID longword uns gned; /* Cache interlock loc 
ORB ptructure: /* Object’s Rights Bloc 
FILEOWNER structure longword unsigned; /* FILE OWNER UIC 
UICMEMBER word unsigned; /* MEMBER NUMBER 
UICGROUP word unsigned: /* GROUP NUMBER 
end FILEOWNER; 
FILL Longword unsigned fill; /* ACL mutex 
FILL_3 longword unsigned fill; /* Structure size & type 
aie angers ad} oo I fill; /* Spare + ref count 
ACMOBE word unsigned; /* gecess mode protection vector 
SYS_PROT structure Longword unsigned; /* Protection word/vector 
“FILEPROT word unsigne /* FILE PROTECTION MASK 
FILL.4 word unsigned fill; 
end SYS_PROT; 
OWN_PROT Longword unsigned; /* Owner protection 
GRP_PROT longword unsigned: /* Group protection 
WOR-PROT Longword at /* World protection 
ACLFL Longword unsigne /* ACCESS CONTROL LIST FORWARD LINK 
ACLBL sooevers wane tgnees /* ACCESS CONTROL LIST BACKWARD LINK 
MIN, Ass an structu /* Minimum pa ony classification mask 
“FIL fy ME dimension 20 fill; /* see structure SCLSDEF 
end MIN etas ; 
MAX ~CLASS PROT ~ /* Maximum security classification mask 
“FIL byte or dimens ion 20 fill; /* see structure SCLSDEF 
xe ond MAX ‘etas 
DIRINDX longword aio /* Directory index atoter 
constant "LENGTH'' equals . prefix FCB$ tag K; /* LENGTH OF STANDARD F 
4 constant “LENGTH’’ equals . prefix FCB$ tag C; /* LENGTH OF STANDARD FCB 
en 


end_module $f CBDEF; 
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nodule SFFIDEF; 
FFI = DECnet-VAX Fast Interface 


/t- 
maliat: FFIDEF structure prefix FFIS$; 

Longword unsigned; /*FORWARD QUEUE LINK 

L_longword unsigned; /*BACKWARD QUEUE LINK 
SIZE word unsigned; /*BLOCK SIZE 
TYPE byte unsigned; /*BLOCK TYPE 
SPARE es uns gned; /*DATALINK eB BYTE 
CTX yt ongword Oins igned: /*DATALINK CONTEXT AR 
XMIT Per unsigned; /*DATALINK TRANSMIT R 
XMIT DON Longword unsigned; /*CALLER'S T 
RECV gone aranare ret ta /*CALLER'S R 
ERROR songyer unsign /*CALLER'S ERROR 
SHUT DONE Longword ons lgned: /*CALLER'S §$ 
sraey Longword unsigne /* spare 
SPARE1 Longword unsigned: /* spare 
Spares Longword unsigned: /* aoere 
SPARES lLongword unsigned: /* spar 
DL_UCB Longword yns igned; 7*DATAL INK UCB ADDRESS 
PIB Longword unsi igned: /*CALLER'S P'D (or zero) 
CHAN word unsign /*CALLER'S CHAN (or zero) 
constant CTX U ER equals . prefix FFIS tag $3 /*CALLER'S CONTEXT BLOC 
constant “‘LENGTH’’ equals . prefix FFI$ tag K Ki /*LENGTH OF A STANDARD 
constant ‘LENGTH’ equals . prefix FFI$ tag C; /*LENGTH OF A STANDARD 


end FFIDEF; 
end_module $FFIDEF; 


R ADDRESS 

RANSMIT DONE ROUTINE ADDRESS 
ece ve DONE ROUTINE ADDRESS 
H 


AND 
UTDOWN COMPLETE ROUTINE ADDRESS 
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ene SFKBDEF; 
fo FKB = FORK BLOCK 


/* A FORK BLOCK DESCRIBES THE CONTEXT 
BLOCK CONTAINS A FORK BLOCK AS ITS 


aggregate FKBDEF structure prefix FKB$; 
FQFL Longword unsigned; 
4: nents unsigned; 


end FKBDEF; 
end_module SFKBDEF; 
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FORK PROCESS. EACH UNIT CONTROL 
SIX LONGWORDS. 


/*FORK QUEUE FORWARD LINK 
/*FORK QUEUE BACKWARD LINK 
/*SIZE OF FKB IN BYTES 
/*STRUCTURE TYPE OF FKB 

/*FORK INTERRUPT PRIORITY LEVEL 
/*FORK P 

/*FORK R 

/*FORK R4 

/*STANDARD LENGTH OF FKB 
/*STANDARD LENGTH OF FKB 
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module S$SGSDDEF ; 


/x+ 
i GLOBAL SECTION DESCRIPTOR BLOCK 


GSDDEF structure refix GSD$; 
L_OVERLAY union fill; 

GSDFL Longword unsigned; 

GSDFL yet tac fill; 


aggregate 


end GSDFL_BI 
end GSDFL_OVERLAY; 
GSDBL longword unsigned; 
SIZE word unsigned; 
TYPE byte unsigned; 
HASH byte unsigned; 
PCBUIC_OVERLAY union fill; 

PCBUIC Longword unsigned; 

PCBUIC_FIELDS structure fil 

pic 6 byte dimension 3 FLL prefix GSDDEF 
CBCRP vord unsigned; 
end PCBUIC FIEL LDS; 

end PCBUIC.O VERLAY 
FILUIC laniened oad eae 
PROT word unsigned; 
GSTX word unsigned; 
**IDENT’’ Longuord. unsigned; 
ORB Longword unsigned; 
FLAGS word unsigned; 
GSDNAM character; 
constant "LENGTH" equals . prefix GSD$ tag K; 
constant "LENGTH" equals . prefix GSD$ tag C; 


#GSDLEN =. ; 
/t 
/* THE FOLLOWING FIELDS ARE ONLY 4 wy D IN EXTENDED GSD‘S. 
/* WHENEVER A GSD IS NEEDED WITHOUT A SECTION TABLE ENTRY, 


/* MEMORY AND FOR PAGES MAPPED BY PFN. 


/*t 
FILL 2 ayes fill proves GSDDEF tag $$; 
BASEPFN longword unsigned; 
PAGES longword unsigned; 
REFCNT Longword uns gned; 
PFNGSDNAM character; 
constant EXTGSDLNG equals . prefix GSD$ tag 3 
constant EXTGSDLNG equals . prefix GSD$ tag C 


/* THE FOLLOWING FIELDS ARE CONTAINED ONLY IN SHARED MEMORY GSD'S. 
/* GSDSC_SHMGSDLNG, IS ONLY THE CONSTANT SIZE OF THE GSD. 
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/*POINTER TO NEXT GSD 
/*SH MEM GSD 


/*POINTER TO PREVIOUS GSD 
/*SIZE OF GSD IN BYT 
/*STRUCTURE TYPE Re FOR GSD 
/*HASH FOR GSD NAME 


/*UIC OF CREATOR OF SECTION, FROM HIS PCB 


tag $$; 

/*GROUP OF CREATOR OF SECTION, FROM PCB 
/*OWNER OF FILE, UIC FROM FCB 
/*PROTECTION MASK 

/*GLOBAL SECTION TABL E INDEX 
/*IDENTIFICATION OF GLOBAL SECTION 
/*OBJECT RIGHTS Broce LOCATOR 

/*SECTION FLAGS 

/*LOCAL MEMORY 


AND pe MEMORY SECTION NAME 
/*LENGTH OF LOCAL MEMORY GSD 
/*LENGTH OF LOCAL MEMORY GSD 


THESE ARE USED 
I.E., FOR SHARED 


/*SPARE BYTE 


/*FIRST RELATIVE BASE PFN 

/*COUNT OF PAGES AT FIRST BASE PFN 
/*FIRST PROCESSOR PTE REF COUNT 
/*PFN-MAPPED SECTION NAME 
/*MINIMUM EXTENDED GSD LENGTH 
/*MINIMUM EXTENDED GSD LENGTH 


THE LENGTH 
IN ADDITION, THERE [S 
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. ONE LONGWORD FOR EACH PROCESSOR AND TWO LONGWORDS FOR EACH BASE PFN-SIZE PAIR. 
end GSDDEF; 


aggregate GSDDEF 1 etruy tury refix GSD$; 

FILL_7 byte dimension #GSDLEN+45 fill prefix GSDDEF tag $$; /*SHMEM GLOBAL SECTION NAME 

LOCK” byte unsigned; /*INTERPROCESSOR LOCK FOR GSD 
PROCCNT byte unsigned; /*NUMBER OF PROCESSOR REF. COUNTS IN GSD 
CREATPORT byte unsigned; /*PORT ! FOR CREATOR PROCESSOR 
DELETPORT rice unsigned; /*PORT ! FOR DELETOR PROCESSOR 
constant PFNBASMAX equals 4 prefix GSD tag $C; /*MAXIMUM ! OF PFN BASES ALLOWED 
BASPFN1 Longword unsigned; /*FIRST BASE PFN FOR SECTION PAGES 
BASCNT1 Longword unsigned; /*CNT OF SECTION PAGES AT FIRST BASE PFN 

/*FIRST PFN/PAGE COUNT PAIR 

FILL_3 quadword fill prefix GSDDEF tag $$; /* NOTE: THE NUMBER OF QUADWORDS 
FILL_4 quadword fill prefix GSDDEF tag $$; /* RESERVED FOR PFN/PAGE COUNTS PAIRS 
FILL_5 quadword fill prefix GSDDEF tag $$; /* MUST BE EQUAL TO GSDS$C_PFNBASMAX-1. 
constant SHMGSDLNG equals . prefix GSD$ tag K; /*LENGTH OF CONSTANT PART OF SHM GSD 
constant SHMGSDLNG ee - prefix GSD$ tag C; /*LENGTH OF CONSTANT PART OF SHM GSD 
PTECNT1 Longword unsigned; /*PTE COUNT FOR FIRST PROCESSOR 


end GSDDEF1; 
end_module $GSDDEF ; 
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module SHDIDEF; 
/+ 


/* HDR1 ANDSI MAGNETIC TAPE LABEL 
ne THIS IS THE FIRST LABEL IN THE FILE LABEL HEADER SET. IF IDENTIFIES THE FILE. 


H 


aggr 
D 
D 
E 
E 


ate HDIDEF structure prefix HD1$; 
1LID lLongword unsigned; /* 
LEID character Length 17; /* 
LESETID character length 6; /* 
LESECNO character length 4; /* 
LESEQNO character length 4; /* 
NNO character length 4; /* 
NVER character length 2; /* 
EATEDT character length 6; /* 
PIREDT character — 6; /* 
LACCESS byte unsigned; /* 
OCKCNT character length 6; /* 
YSCODE character ang h_ 13: /* 
LL_1 character Length 7 fill prefix HDIDEF tag $$;/* 
end HD1DEF; 


end_module SHDIDEF; 


NYDAMOOO mT 
te TIT os CRO 


en 


en 
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module SHD2DEF; 


Je 
/* HDR2 ANSI MAGNETIC TAPE LABEL 
/* THIS IS THE SECOND LABEL IN FILE LABEL HEADER 
/* THE FILE ATTRIBUTES HAVE BEEN REMOVED FROM HDR AND pEacee IN HORS. 
. THE FIELDS REMAIN IN THE DEFINITION TO SUPPORT wi TAPES 
t<- 


eperesgte MO HD2DEF structure prefix HN2$; 


Longword unsigned; /*LABEL IDENTIFIER AND NUMBER 'HDR2' 
RECFORMAT byte unsigned; /*RECORD FORM 
BLOCKLEN character [ength 5; /*BLOCK L ENGTH 
RECLEN character Length 5; 7=RECORD- LENGT 
RECATR1 character Length 20; /*FIRST 2 BYTES OF FILES-11 RECORD ATTRIBUTES 
FILL_1 character fill prefix HD2DEF tag $$; /*SPACES 
FORMCNTRL byte unsigned; /*FORMS CONT 
RECATR2 character Length 12; /*LAST 1 BYTES OF FILES-11 RECORD ATTRIBUTES 
FILL_2 character fill prefix HD2DEF tag $$; . *SPAC S$ 
BUFOFF character Lengt *BUFFER OFFSET 


F 
oa haber: 3 character length 6 fill prefix HD2DEF tag $$, /*SPACES 


end_module SHD2DEF ; 
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module SHD3DEF ; 


F ae HEADER SET. 


aggregate. HD3DEF structure prefix HD3$; 


D longword er ag erg IDENTIFIES AND NU 
inet character Length 4 BYTES OF FILES=-11 RE 
its habher. character length 3° fill prefix HD3DEF tag $$;/*SPACES 
© 


end_module SHD3DEF; 
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module SHD4DEF ; 


/* HDR4 ANSI MAGNETIC TAPE LABEL 

js THIS 1S THE FOURTH LABEL IN FILE LABEL HEADER SET. 

/* 1T CONTAINS THE LONG FILENAME EXTENSION TO THE HDR1 FILE IDENTIFIER 

/* FOR VMS LONG FILE NAMES 

te 

aggregate HD4DEF Fd uns gned prefix HD4$; 
HD4LID Longyord ae /*LABEL IDENTIFIER AND 
FILEID_EXT_SIZE te unsigned; /*SIZE OF FILE ID EXT 
FILEID-EXT “chareste Leng h 62; /*EXTENSION OF HDR1 FI 
FILEID-EXT_v3 charect gngth 2; /*SIZE OF FILE ID EXT 

4 others character Length 1 ill prefix HD4DEF tag $$; /*SPACES 
en 


end_module SHD4DEF; 


EP 
R_ ANSI 4 VOLUMES 
R ANSI 3 VOLUMES 
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godute SIAFDEF; 
on IAF = IMAGE ACTIVATOR FIXUP SECTION 


/* THE IMAGE ACTIVATOR FIXUP SECTION IS AN 
/* BY THE LINKER AND USED BY THE IMAGE ACT 
/* IT IS ACTIVATED, THIS IS DONE TO MAINT 
/* OF EXTERNAL REFERENCES. 


aggregate IAFDEF structure prefix IAF$; 
IAFLINK Longword unsigned; 
FIXUPLNK Longword unsigned; 
SIZE word unsigned; 
FLAGS_OVERLAY union fill; 
FCAGS word unsigned; 
FLAGS BITS structure fill; 
SAR eter iene: 


i 
-§ Longword fi 
lLongword fi 

fi 

| 

i 


We 
oo 
$ 
© 
=z 
°o 
3 
a 


end_module SIAFDEF; 


1 
16-SEP-1984 16:45:24.68 Page 22 


Link for image activator use 
Link for shareable image fixups 
Size of fixed part of IAF 


Flags 


This is in a shareable image 


ooo 


fset to 
Offset to 
Number of 
Number of 
Permanent 
Spare 
Spare 
Spare 
Spare 
Spare 
Spare 
Length of 
Length of 


g* address data 

-address fixup data 

sect gnange prot. data 
shareable image List 
shareable images in shlst 
extra shareable images allowed 
sharable image context 


fixed area 
fixed area 
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nodule SICPDEF ; 
. ICP = CHANGE IMAGE SECTION PROTECTION DATA 
/* ris inact ruse IS USED IN THE IMAGE FIXUP SEETLON 


is INFORM IMAGE BEL AVATOR OF THE IMAGE SECT 
al THEIR PROTEC ION CHANGE 


Or EREE VAL ICPDEF 7 ostoe prefix ICP$; 
longword uns d; 


ed; 
constant “LENGTH” equals . prefix ICP$ tag K; 
constant "LENGTH" equals . prefix ICP$ tag C: 
end ICPDEF; 


end_module SICPDEF; 


virtual address of start of section 
number of pages to change protection on 
new protection 

size of one section's data 

size of one section's data 
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module SIDBDEF; 
{e+ 


fe IDB = INTERRUPT DISPATCH BLOCK 


/* AN_INTERRUPT DISPATCH BLOCK PROVIDES THE INFORMATION NECESSARY FOR A 
/* UNIT INDEPENDENT, BUT CONTROLLER SPECIFIC, INTERRUPT DISPATCHER TO 
/* DISPATCH INTERRUPTS TO THE PROPER DRIVER fO HANDLE AN INTERRUPT ON 
/* A DEVICE UNIT. 
/t- 
aggregate IDBDEF structure prefix IDB$; 
CSR_Longword unsigned; /*CONTROLLER CSR ADDRESS 
R longword unsigned; /*QWNER UCB ADDRESS 
SIZE word unsigned; /*SIZE OF IDB IN BYTES 
TYPE byte unsigned; /*STRUCTURE TYPE OF IDB 
VECTOR byte unsigned; /*CONTROLLER VECTOR OFFSET 
UNITS word unsigned; Pa sy oF UNITS (SIZE OF UCBLST) 
TT _ ENABLE ayte uns gned: /* DZ52 Line enable field 
COMBO_CSR_OFFSET byte; /*OFFSET TO START OF COMBO DEVICE STYLE CSRS 
COMBO VECTOR_OFFSET byte; /*OFFSET TO START OF COMBO STYLE DEVICE VECTORS 
SPARET byte; /*A SPARE BYTE 
SPARE2 word; /*A SPARE WORD 
ADP Longword unsigned; /*ADDRESS OF UBA ADAPTER CONTROL BLOCK 
UCBLST longword unsigned dimension 8; jelstrunrae Be IDB ADDRESSES 
constant ‘‘LENGTH’’ equals . prefix IDB$ tag K; /*LENGTH OF STANDARD IDB 
constant ‘LENGTH’ equals . prefix IDB$ tag C; /*LENGTH OF STANDARD IDB 


end IDBDEF; 
end_module SIDBDEF; 
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nodule SIFDDEF; 
. IMAGE FILE DESCRIPTOR BLOCK = RETURNED BY IMAGE ACTIVATOR 


SIZE word uns /*SIZE_ IN BYTES OF IMAGE FILE DESCRIPTOR 
FILNAMOF F word co : /*OFFSET TO RESULTANT FILE NAME STRING 
FILL_1 word fill prefix IFDDEF tag $$; penetenes OFFSET j 
FILL-2 word vytt prefix IFDDEF tag $$; /*RESERVED hy}! 
CHAN word unsigned; /*CHANNEL ON WHICH [Mace FILE IS OPEN 
CMCHAN vere. unsigned; /*COMPATIBILITY MODE CHANNEL 
CMKFIADR Longwor unsigned; /*COMPATIBILITY MODE IMAGE 
/*KNOWN FILE ENTRY ADDRESS OR 0 
FLAGS OVERLAY union fill; 
FCAGS word unsigned; /*IMAGE FILE DESCRIPTOR FLAGS 
FLAGS tM structure fill; 

EXEONLY bitfield mask; /*EXECUTE ONLY FILE 

PRIV bit field mask; /* IMAGE INSTALLED WITH ENHANCED PRIVILEGE 

na HELE Lot bitfield’ mask; /*PRIVILEGED VECTORS TO BE INSTALLED 
end FUAGS OVERLAY 
FILL_3 word fill beatte IFDDEF tag $$; /*SPARE WORD 
CURPROG quadword unsigned: /*STRING goed ale FOR CURRENTLY 

/*RUNNING PROGRAM NAME 

constant ‘LENGTH’ equals . prefix IFD$ tag K; /*LENGTH OF FIXED AREA OF IFD 
constant “‘LENGTH’’ equals . prefix IFD$ tag C; /*LENGTH OF FIXED AREA OF IFD 


end IFDODEF; 
end_module SIFDDEF; 
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oogne SIHDDEF ; 
a IMAGE HEADER RECORD DEFINITIONS = FIRST RECORD OF IMAGE HEADER 


— word unsigned; /* Size in bytes of Image Header record 
ACTIVOFE word unsigned; /* Byte offset to activation data 
SYMDBGOFF word uns gned; /* Byte offset to symbol table and debug data 
IMGIDOFF word unsigned; /* Byte offset to image ident data 
PATCHOFF word ra Ha /* Byte offset to patch data 
SPARE word uns Yone /* spare 
MAJORID word unsigned; /* Major id 
gonstent MAJORID equals "02" prefix IHD tag $K; /* Major id value 
MINORID word unsigned; ; /* Minor id 
constant MINORID equals ''05"' prefix IHD tag SK; /* Minor id value 
HDRBLKCNT byte unsigned; /* Count of header blocks 
pa IMGTYPE byte unsigned; /* Image type 
. IMAGE TYPE CODES 
® 
constant EXE equals 1 prefix IHD tag $K; /* Executable image 
constant LIM equals 2 prefix IHD tag $K; /* Linkable image 
FILL_2 word fill prefix IHDDEF tag $$; /* Reserved 
PRIVREQS quadword unsigned; /* Requested privilege mask 
IOCHANCNT word unsigned; ish +} cone’ s requested 
* efau 
IMGIOCNT word unsigned; | of pages 0 of image i/o section requested 
e 
LNKFLAGS_OVERLAY union; 
LNKFCAGS BITS struct unsigned: /* Linker produced image flags 
LNKFLAGS BIT ructure; 
mxDEBU bitfield mask; /* Full debugging requested 
CNK R bittietd mask: /* First transfer address miss ing 
OBUF § bitfield mask; /* RMS use of PO for image i/o disabled 
PICIMG bitfield mask; /* Image is position independent 
POIMAGE bitfield mask; /* Image is in PO space on 
DBGDMT bitfield nooks /* Image header has dmt fields 
INISHR bitfield ma /* Transfer array contains valid IHASL_INISHR 
ILL_3 bitfield len engih 17 fit prefix IHDDEF t Se $$;/*FILL your TO HIGH BYTE OF LONG WORD 
aL ty E pitzrete mask length /* Match control for linkable image 
e Py 
end CRKFLAGS tOVERLAY: 
“IDENT Longword unsigned; /* GBL_ SEC ident value for Linkable image 
SYSVER longword unsigned; /* SYSSK_VERSION or 0 if not Linked with exec 
IAFVA _Longword unsigne d: /* Relative virtual address of fixup info 
constant ‘LENGTH'’ equals . prefix IHD$ tag K /* Length of fixed area 
constant "LENGTH" equals . prefix IHD$ tag C: /* Length of fixed area 
SKIP character a 510 - .; /* ALIAS should be Last word in 512 byte block 
ALIAS word unsigne /* Code to use secondary image name 


/teeeeeerereereteeeeeeereeereeeeereeeeeeree 


/t 
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/* Define cope range of ALIAS constants. MINCODE must be equal to the 


/* lowest va 
/* 


constant MINCODE equals -1 prefix ives a C3 
constant NATIVE equals -1 prefix IHD 

constant RSX equals 0 bretix ] 
constant BPA equals 1 prefix IH 
constant ALIAS equals previ IHD$ tag 
constant CLI equals IH 
genecant MAXCODE equals I 


RARER AAAAAAARAAAAEAAAAAARERERAARREKERREREEE 


/* 


/* 


/* 
/* 
/* 
/* 
/* 


~ 
ah 


ue and MAXCODE must be equal to the highest value. 


Low bound of aro values 
Native mode 


ma 
RSX image produced by TKB 

BASIC 1g analog 

Last 126 bytes contains ASCIC of image to activate 


Image is a Chie run LOGINOUT 
High bound of ALIAS values 


/* Generation number returned by IMGSHR IMGSGET_IHD to SYSIMGACT. 
/* These do not appear in the image header but are inferred from the 
contents of the image header 


constant GEN_XLNKR equals 1 prefix IHD tag $C; 
constant GEN_NATIVE equals 2 prefix IHD tag $C; 
constant GEN_LNKFLG equals 3 prefix IHD tag $C; 
constant GEN_SYSVER equals 4 prefix IHD tag $C; 
constant GEN_FIXUP equals 5 prefix IHD tag $C; 
constant GEN_NEWISD equals 6 prefix IHD tag $C; 


end IHDDEF ; 
end_module SIHDDEF; 


/* 
/t 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


Cross Linker 

First native mode image header 

does not have LNKFLA s, SYSVER and IAFVA fields 
Native with LNKFLAGS lLongword added 

does not have SYSVER and IAFVA fields 
Native with LNKFLAGS and SYSVER added 

does not have IAFVA field 

Version III page 

contains LNKFLAGS, SYSVER, and IAFVA fields 

ISD size field is a byte 
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module SIHADEF ; 


/+ 
fn IMAGE HEADER ACTIVATION SECTION OFFSETS 


aggregate IHADEF structure prefix IHAS$; 
” +PRABRI l : 


ongword unsigned; /*FIRST TRANSFER ADDRESS 

TFRADR2 Longword unsigned; /*SECOND TRANSFER ADDRESS 

TFRADRS lLongword unsigned; /*THIRD TRANSFER et i 

FILL.1 Llongword dS prefix IHADEF tag $$; /*GUARANTEED TRAILING 0 ADDRESS 

INISAR Longword unsigned; oeteatio {PAGE INITIALIZATION 
/*(valid if IHD$V_INISHR set) 

constant "‘LENGTH’' equals . prefix IHA$ tag K; /*SIZE OF ACTIVATION SECTION 

constant "‘LENGTH’’ equals . prefix IHA$ tag C; /*SIZE OF ACTIVATION SECTION 


end IHADEF; 
end_module SIHADEF; 


KMTOMWMONDZ EK KOCH TO MMOS EF KOCH ITO MMOOOZ EF KOCH LO MMIOWZ Er ACK TOA MMIOW 


SYSDEFFL.SDL;1 
module SIHPDEF; 


/e+ 
oS IMAGE HEADER PATCH SECTION OFFSETS 


aggregate IHPDEF structure prefix IHP$; 
01 Longword unsigned; 

0g longword unsigned; 

05 longword unsigned; 

04 longword unsigned; 
RW_PATSIZ Longword unsigned; 
PATADR lLongword unsigned; 
RO_PATSIZ longword unsigned; 
RO_PATADR Longword unsigned; 
PATCOMTXT Longword unsigned; 
PATDATE quadword unsigned; 


end IHPDEF; 
end_module $IHPDEF ; 


constant “LENGTH equals . prefix IHP$ tag K; 
constant "‘LENGTH'’ equals . prefix IHP$ tag C; 
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/*DEC ECO LEVELS 1-32 

/*DEC ECO LEVELS 33-86 

/*DEC ECO LEVELS 65- : 

/*USER ECO LEVELS 99- 

/*SIZE OF FREE RW PATCH AREA 

/*VIR_ ADDR OF NEXT FREE RW PATCH AREA 
/*SIZE OF FREE RO PATCH 

/*VIR ADDR OF NEXT FREE RO PATCH AREA 
/*PATCH COMMAND TEXT VIRTUAL BLOCK NUMBER 
/*DATE OF MOST RECENT PATCH 

/*LENGTH OF PATCH HEADER SECTION 
/*LENGTH OF PATCH HEADER SECTION 
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module SIHSDEF; 


/we 
Ae IMAGE HEADER SYMBOL TABLE AND DEBUG SECTION OFFSETS 


aggregate IHSDEF structure prefix IHS$; 


TVBN Longword unsigned; /*DEBUG SYMBOL TABLE VIRTUAL BLOCK NUMBER 
GSTVBN_ Longword , /*GLOBAL SYMBOL TABLE vant UAL BLOCK NUMBER 
DSTBLKS word unsigne /*DEBUG SYMBOL TABLE BLOCK COUNT 
GSTRECS word unsigned; /*GLOBAL SY MBOL at RECORD COUNT 
DMTVBN  Longword unsigned; /*VBN OF DMT INFORMATION 
DMTBYTES lLongword uns ned; /*LENGTH OF F 
constant ‘LENGTH’ equals . prefix IHS$ tag K; /*LENGTH OF SYMBOL TABLE SECTI 
constant “LENGTH equals . prefix IHS$ tag C; /*LENGTH OF SYMBOL TABLE SECTI 


end IHSDEF; 
end_module SIHSDEF; 
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module SIHIDEF; 


{e+ 
. IMAGE HEADER IDENTIFICATION SECTION OFFSETS 


aggregate, IMIDEF structure prefix IHI$; 


AM character Len - 40; /*IMAGE NAME STRING 
IMGID character Length 16; /*IMAGE IDENT STRING 
LINKTIME quadword unsigned; /*DATE AND TIME THIS IMAGE WAS LINKED 
/*STANDARD SYSTEM QUADWORD FORMAT 
LINKID character length 16; /*LINKER IDENT STRING 
constant ‘‘LENGTH'’ equals . prefix IHI$ tag : /*LENGTH OF IMAGE HEADER IDENT SECTION 
constant "‘LENGTH’' equals orefix IHI$ tag C; /*LENGTH OF IMAGE HEADER IDENT SECTION 


end IHIDEF; 
end_module SIHIDEF; 
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geeute SIHXDEF; 


js IMAGE MEADER RECORD DEF 
- T RECORD OF I 


INITIONS = CROSS LINKER = MAJORID = ‘'01" 
MAGE HEADER BLOCK 


eoorepete IHXDEF structure prefix IHX$; 


— word unsigned; /*SIZE_IN BYTE OF IMAGE HEADER RECORD 
sree byte unsigne /*COUNT OF BLOCKS IN IMAGE HEADER 

L_1 byte fill prefix. IHXDEF tag $$; (etcant 
STAR ADR quadword unsigned; ft Her DRESS 
MAJORID word unsigned; /*MA a iD OF se HEADER 
constant MAJORID equals (%4X3130) prefix IHX tag SK; Mead 1/ MAJOR ID VALUE FOR CROSS LINKER 
MINORID word unsigned; /*MINOR ID oF MIRA GE HEADER 


constant MINORID oe equals (%X3130) prefix IHX tag $K;/**A/01/ MINOR ID VALUE FOR CROSS LINKER 
constant MINORID1 equals (%X3130) prefix IHX tag i be ag 4 MINOR ID VALUE FOR CROSS LINKER WITH 
MBOL He AND 3RD TRANSFER ADR 


; IMGNAM character Length 24; /e1MAGe NAM 

® 

be THE FOLLOWING FIELDS ARE PRESENT FOR MINOR ID'S GREATER OR EQUAL TO ‘'03"' 

we 

DSTVBN Longword unsigned; /*DEBUG SYMBOL TABLE VBN 
GSTVBN Longword pal Mi, *GLOBAL SYMBOL 
DSTBLKS word unsigne /*DEBUG SYMBOL TABLE 
Traced word unsigned; /*GLOBAL SYMBOL TABLE RECORD COUNT 
TFRADR Longuord, unsigned; *THIRD TRANSFER 
constant | equals . prefix IHX$ tag K; /*LENGTH OF CROSS LINKER HEADER 
constant "LENGTH" equals . prefix IHX$ tag C /*LENGTH OF CROSS LINKER HEADER 


end IHXDEF; 
end_module SIHXDEF ; 
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gogule SIMPDEF; 
/* RMS32 IMPURE AREA OFFSET DEFINITIONS 


/* 
/*- 


aggregate IMPDEF structure prefix IMPS; 
sata OVERLAY union fill; 


end IMP 
dl SIMPDEF ; 
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TUS word wneien ed; /* RMS OVERALL STATUS 
RMSSTATUS BITS structure fill; 
110S Bitfield; . ae if tuts IS THE IMAGE 
* . 
AST bitfield; /* SET IF ete AT EXEC AST LEVEL 
TEMP] bitfield; /* TEMPORARY FLAG 
TEMP2 bitfield; sei 
IORUNDOWN bitfield; /* SET IF I0 RUNDOWN IN PROGRESS 
POBUFS bitfield; /* SET IF RMS USE OF PO FOR IMAGE 1/0 DISABLED 
RUH bitfield; /* Set if within RMS RU Handler 
RECOVERY bitfield; /* SET IF RECOVERY IN PROGRESS 
RUH_SYNCH bitfield; /* SET IF RMS 10 MUST SY 
/* WITH THE RU HANDLER 
P end RMSSTATUS_BITS; 
. 
constant ASYEFN equals 30 prefix IMP tag $C; /* EFN FOR ASYNC WAITS 
constant IOREFN eqns 30 prefix IMP tag $C; /* EFN FOR IO RUNDOWN SYNCHRONIZATION 
constant ASYQIOEF equals 31 pretix IMP tag $C;/* EFN FOR ASYN 
constant SYNCEFN equals 27 prefix IMP tag ath pe A ge SYNCHRONOUS Q10'S 
® e 
pe constant MBXEFN equals 26 prefix IMP tag $C; /* EFN FOR QIOS TO NETWORK MAILBOXES 
end RMSSTATUS gOVERLAY: 
PROT wee unsT pred /* PROTECTION FOR 1/0 BUFFER PAGES 
FILL_1 te fill aretis IMPDEF tag $$; /* SPARE 
LOSEGADD longword unsigned; /* ADDRESS OF FIRST FREE PAGE 
/* IN THIS (IMAGE OR PROCESS) 
/* 1/0 SEGMENT 
IOSEGLEN Longword unsigned; /* ! OF FREE BYTES AT ABOVE ADDR 
FREEPGLH Longword unsigned dimension 2; /* FREE PAGE LIST HEA 
SAVED_SP longword unsigned; /* SAVED VALUE okt SP AT ENTRY 
IFABTBL Longword unsigned; /* IFAB TABLE ADDR 
IRABTBL longword uns toned; /* TRAB TABLE ADDR 
ENTPERSEG word unsign /* ! OF SLOTS PER TABLE SEGMENT 
constant NPIOFILES pone Pe $3 prefix IMP tag $C; /* ! OF PIO SEGMENT FILES 
constant ENTPERSEG equals 15 prefix IMP tag $C; /* ! OF II10 SEGMENT SLOTS 
/* PER INDEX TABLE party! 

IFABS word yo /* NUMBER OF IFABS & IRABS CURRENTLY ALLOCATED 
rBTB - m Senguerd So /* START OF IFAB TABLE (LINK TO NEXT SEGMENT) 
FILL ord d ae “ti fill prefix IMPDEF tag $8: /* FIRST IFAB TABLE SEGMENT 
peste CINK ongword unsigned; * START OF IRAB TABLE (LINK TO NEXT SEGMENT) 
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module SIOCDEF; 


/ + 


/* 

‘ SIOCDEF - flag bits used in 1/0 database search routines. 
+f 

/*- 


aggregate IOCDEF structure prefix I0C$; 


/* IOCSV_PHY must be bit 0!! 
PHY bitfield mask; /* physical device specified 
TYPE bitfield mask; /* device type name specified 
CLASS bitfield mask; /* allocation class present 
LOCAL bitfield mask; /* search local devices only 
EXISTS bitfield mask; /* device exists 
“"2P"" bitfield mask; /* device is on UCB secondary path 
ANY bitfield mask; /* find —_ oe device 
MOUNT bitfield mask; /* find only mountable devices 
ALT bitfield mask; /* alternate UCB found 
NO_TRANS bitfield mask; /* caller translated logical name 
ALCOC bitfield mask; /« allocate mountable device 

end IOCDEF; 


end_module SIOCDEF; 
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yoane SIO780DEF ; 
oe 1/0 SPACE LAYOUT FOR 11/780 CPU 


/*DEFINE CONSTANT ADDRESSES 

constant IOBASE equals +1200 eres’ prefix aby’ eos eg AL;/*START OF 1/0 SPACE 

constant PERNEX equals + 00 prefix 1078 7*! BYTES OR REGISTER SPACE/NEXUS 
constant NNEX equals 1 refix 10780$ tag AL; /*! OF NEXUSES 

constant UBOSP equals Ny 10000 oretin “Yo? bs tag AL;/*ADDR OF UB 9 SPACE 

constant UBISP equals +ZXx 13000 prefix 10780$ tag AL;/*ADDR OF UB 1 SPACE 

constant UB2SP equals +%Xx2018 3 prefix 10780$ tag AL;/*ADDR OF UB § SPACE 

constant UB5SP equals +%Xx201C0000 prefix 10780$ tag AL:/*ADDR OF UB 3 SPACE 


end_module $SIO780DEF; 

gotule SIO7SODEF; 
® 

te 1/0 SPACE LAYOUT FOR 11/750 CPU 
t= 


/*DEF INE wee) et ADDRESSES 
0$ Ay he. /*START OF 1/0 SPACE FO 


constant IOBASE equals +1200» prefix R SLOT 16 
/*! BYTES OF R ‘ie SPACE/NEXUS 


constant PERNEX equals +ZX2000 prefix I0 


075 
Hoee 
constant UBBASE equals +%XxF30000 prefix 107508. ag AL; /*START OF UB 
constant MBBASE equals +ZxXF28000 prefix 10750$ tag AL; /*START OF MBO REGISTER SPACE 
constant FLOAT equals +ZXF34000 prefix 10750$ tag AL; /*START OF FLOATING ADAPTER SPACE 
constant NNEX equals 16 prefix 10750$ tag AL; /*! CONFIGURABLE NEXUSES 
constant UBOSP equals +ZXxFCO000 prefix 10750$ tag AL; /*ADDR OF UBO SPAC 
constant UBISP equals +%xF80000 prefix 10750$ tag AL; /SFIXED ADAPTER ASSIGNMENTS con 
* SLOT 
constant MEMO equals 0 prefix 107 208C_ tag SL; /* MEMORY CONTROLLER 
constant MPMO equals 1 prefix 10750$C_ tag SL: /* MULTIPORT MEMORIES... 
constant MPM1 equals ¢ prefix 10750$C_ tag SL; /* 
constant MPM2 equals prefix 10750$C_ tag SL; /* 
constant MBO equals 4 prefix I10750$C_ tag SL; /* MASSBUS ADAPTERS... 
constant MB1 equals 5 prefix 1073 $C_ tag SL; /* 
constant MB equals § prefix I0750$C_ tag SL; /* 
constant MB equals prefix 102 $C_ tag SL; /* 
constant UBO equals 3 prefix 10750$C_ tag SL; /* UNIBUS 0 
constant UB1 equals prefix 10750$C_ tag SL; /* UNIBUS 1 


end_module $IO750DEF ; 
nodule SIO730DEF ; 
1/0 SPACE LAYOUT FOR 11/730 CPU 


constant IOBASE equals oBxE 30000 poe tts Wore tas ta ma /* START OF I/O SPACE 
constant PERNEX equals +%X2000 prefi igh /* ! BYTES OF REGISTER SPACE/NEXUS 
constant NNEX equals 16 prefix 10730 tag AL; /* ' OF NEXUSES 
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constant UBOSP equals +%xFC0000 prefix i9730$ tag AL; /* ADDR OF UBO SPACE 
end_module SIO730DEF; 
module SIO790DEF ; 


{eee 
fe 1/0 SPACE LAYOUT FOR 11/790 CPU 
kam 


constant IOAOQ equals +%Xx $000 8 prefix 10790$ tag AL;/*START OF I/0 SPACE FOR ABUS ADAPTER 9 
constant I0A1 equals +%X 0 prefix 10790$ tag AL;/*START OF I/0 SPACE FOR ABUS ADAPTER 
constant A equals +%X24000000 prefix 10790$ tag AL:/*START OF I/0 SPACE FOR ABUS ADAPTER ¢ 
constant IOA equals +2X $28000 erertis 0790$ tag AL;/*START OF 1/0 SPACE FOR ABUS ADAPTER 
constant PERNEX equals +%xX2000 prefix 10790$ tag AL; /*! OF BYTES OF REGISTER SPACE/NEXUS 
constant NNEX equals 16 prefix 0790$ tag AL; /*NUMBER OF NEXUS PER SBIA 

constant UBOSP equals +%x100000 prefix 10790$ tag AL; /* OFFSET OF UB 0 SPACE FROM BASE OF SBIA 
constant IOACR equals +%x80000 prefix 10790$ tag AL; /* OFFSET OF IO ADAPTER CR FROM BASE OF SBIA 
constant PERABS equals +%X2000000 prefix 10790$ tag AL; /* ADDRESS SPACE FOR EACH ABUS ADAPTER 
constant SBIA equals 1 prefix 10790$ tag kK; /* TYPE CODE FOR SBIA ADAPTER 

constant SBIA equals 1 prefix 10790$ tag C; /* TYPE CODE FOR SBIA ADAPTER 


end_module SIO790DEF ; 

> m+ te SIOUVIDEF; 

he 1/0 SPACE LAYOUT FOR MICRO-VAX I CPU 
tee 


constant QBOSP equals +%X20000000 prefix I0UV1$ tag AL; /* ADDR OF QBUS SPACE 
end_module SIOUVIDEF; 
module SIO8NNDEF ; 


/e+ 
ie 1/0 SPACE LAYOUT FOR 11/8NN CPU 
go 


/* NBIA Type code found in NAC field 
constant IA = equals 3°13 prefix IO8NN$ tag K; : 4 
x 


type 
constani NBIA equals + prefix IO8NNS$ tag C; t 


jes 
>> 


/* Define constant addresses 
constant IOBASE equals +ZX20000000 prefix IO8NN$ tag AL; /* Start of 1/0 space 

e 
constant NBIA_O equals +%Xx200000 prefix IO8NN$ tag AL; /* I/O space for first NBIA 
constant NBIB_O equals +2X prefix IO8NN$ tag AL; /* 1/0 space ist BI 
constant 1 equals +*ZXx prefix $ tag AL; /* 1/0 space 2nd Bl 
* 


NBIB_ 10 / 
constant NBIA_1 equals +2X24 refix IO8NN$ tag AL; /* 1/0 space for second NBIA 
constant NBIB_2 equals *ex50060000 Oretix LOSNNS tag AL; /* 1/0 space 5rd BI 
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sonetent NBIB_3 equals +%X26000000 prefix IO8NN$ tag AL; /* 1/0 space 4th B1 
constant NMI_MEM equals +%X3E000000 prefix IO8NN$ tag AL; /* Nautilus Memory 


constant NMI_CSRO equals +%Xx prefix | 
constant PERAM] equals +%Xx 00 prefix | 
constant PERNBIA equals +2ZX 88 prefix | 
constant PERNBIB equals +%X200 prefix I 
constant PERNEX equals +%x2000 prefix I 
constant NNEX equals prefix | 
constant SP equals +%x100000 prefix | 


/* Define B1 address space offsets and lengths 
constant BRDCST equals +%Xx20000 prefix IO8NN$ 
constant BTROM equals +%x40000 prefix IO8NN$ 
constant NODESP equals rts prefix IO8NN$ 
constant NDSPER equals +%Xx4000 prefix IO8NN$ 
end_module SIO8NNDEF; 

module SIO8SSDEF; 

/%+ 


1/0 SPACE LAYOUT FOR 11/8SS CPU 


constant IOBASE equals +%xX20000000 prefix 1oesss 
panetens —— equate +%x2000 previs ogee 
constan equals refix 

constant BRDCST oquais +%xX20020000 Sretin 108SS$ 
constant BTROM equals +ZX sess 4'4 prefix Fs th 34 
constant NDPRIV equals +%Xx20 : 000 prefix I108SS$ 
constant PCNTL equals +ZX 4 prefix I108SS$ 
constant NIBUF equals +%X 0 prefix 108SS$ 
constant EEPROM equals +ZxX2009 prefix I108SS$ 
constant NIDATA equals +Z%X200A prefix I08SS$ 
constant NIADDR equals +ZX200A prefix 108SS$ 
constant RCX50 equals +ZX prefix 108SS$ 
constant WATCH equals +Z%X e, prefix 108SS$ 
constant NODESP equals +%Xx204000 prefix I08SS$ 
constant NDSPER equals +%Xx40000 prefix I08SS$ 


end_module SIO8SSDEF; 


offset to NMI CSRO 

1/0 space per NMI nexus 

offset to next NBIA 

offset to next NBIB 

& apres of register space/nexus 
# of Nexuses per B! 

First unibus space 


offset to broadcast space 
offset to boot rom space 
offset to BI node window 0 
size of BI node window 


Define constant addresses 

Base of 1/0 space 

Size of Register Space/Node 

# of Nodes 

Base of Broadcast Space 

Base of Bootrom Space 

Base of Node Private Space 

Pcntl CSR in Node Private Space 

NI Packet Buffer in Node Private Space 
EEPROM in Node Private Space 

NI Data Register in Node Private Space 
NI_ADDR Register in Node Private Space 
RX50 Registers in Node Private Space 
Watch Chip in Node Private Space 

Node 0 Window Space 

Size of Window Space 
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aa SIPLDEF; 
an TEMPORARY PROCESSOR PRIORITY LEVEL DEFINITIONS 


constant HWCLK equals 24 prefix IPL tag $; 

constant PERFMON equals 15 prefix IPL tag $; 

constant IOPOST equals 4 prefix IPL tog 5; 

constant MAILBOX equals 11 prefix IPL tag $; 

constant POWER equals 31 prefix IPL ; 
UE equals 


constant Q 3 
constant SCHED equals i prefix IPL tag 
constant SYNCH equals 
constant TIMER equals r, orerts. IPL tag $: 
constant T pratt ‘. '¢: ‘t: "$; 
constant ASTDEL equals § prefi L tag 

constant SCS prefix IPL tag $ 


end_module SIPLDEF; 


-ce~< 


“—s4zamm 
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gegute SIRPDEF; 

~ IRP = 1/0 REQUEST PACKET 

/* 1/0 REQUEST PACKETS ARE CONSTR 

/* SERVICE. THE CONTENT OF AN 1/0 

~ BE PERFORMED ON A DEVICE UNIT. 
IR 
IR 


* NOTE: SEVERAL FIELDS OF TH 
* CORRESPONDING FIELDS IN TH 


mm 


aggregate IRPDEF structure prefix IRP$; 
I0QFL longword unsigned; 
10QBL longword unsigned; 
SIZE word unsigned; 
TYPE byte unsigned; 
RMOD_OVERLAY union fill; 
f byte unsigned; 


MODE bitfield Length 2; 
e D BITS; 
end RMOD_OVERLAY 


PID Longword unsigned; 
AST longword unsigned; 
ASTPRM longword unsigned; 
WIND lLongword unsigned; 
UCB opere unsigned; 
FUNC_OVERLAY union fill; 
FUNC word unsigned; 
FUNC _BITS structure f 


ill; 
FCODE bitfield mask Length 6; 
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P MUST BE AT THE SAME OFFSETS AS THEIR 
PE (SEE NEXT PAGE). 


/O0 QUEUE FORWARD LINK 
/O0 QUEVE BACKWARD LINK 
IZE OF IRP IN BYTES 

TRUCTURE TYPE FOR IRP 


/*ACCESS MODE OF REQUEST 
/* MODE SUBFIELD 


/*PROCESS ID OF REQUESTING PROCESS 
/*ADDRESS OF AST ROUTINE 

/*AST PARAMETER 

/*ADDRESS OF WINDOW BLOCK 
/*ADDRESS OF DEVICE UCB 


/*1/0 FUNCTION CODE AND MODIFIERS 
/* FUNCTION CODE FIELD 
/* FUNCTION MODIFIER FIELD 


/*EVENT FLAG NUMBER AND EVENT GROUP 
/*BASE PRIORITY OF REQUESTING PROCESS 
/*ADDRESS OF 1/0 STATUS DOUBLE LONGWORD 
/*PROCESS I/0 CHANNEL NUMBER 


/*REQUEST STATUS 


/* BUFFERED 1/0 FLAG ; THESE BITS 

/* 1=>READ FUNCTION ;MUST BE ADJACENT 
/* PAGING 1/0 FLAG ;AND IN ORDER 

/* COMPLEX BUFFERED 1/0 

/* VIRTUAL 1/0 FUNCTION 

/* CHAINED BUFFERED 1/0 OPERATION 

/* SWAP I/O OPERATION 

/* DIAGNOSTIC BUFFER ALLOCATED 

/* PHYSICAL I/0 

/* TERMINAL I/O (FOR SELECTING PRIORITY INC) 
/* MAILBOX BUFFERED READ 


SYSDEFFL.SDL;1 
EXTEND bitfield 
FILACP HUM bl mask; 
MVIRP bitfield ma 
om, Rese bitfield mask; 
KEY bitfield mask; 
end STS BITS; 


end STS_OVERLAY 
SVAPTE ee unsigned; 
BOFF word unsigned; 
BCNT_OVERLAY union: fill; 
CNT longword unsigned; 
CNT OVERLAY soeseness 


Vv 
FILL_1 word f tt prefix IRPDEF tag $$; 
1OSTT_OVERLAY union fill; 

10ST longvord ' unsigned; 

MEDIA son word unsigned; 
end 10ST1_0 


s08T¢ Oy RLAY unian fill; 
rOWERLA unsign 
it “TERR ? ERLAY mnthn “fit: 
mn enguere unsigned; 
tA 3s a M- unsigned; 
TT_TERM LAY; 
OVERLAY; 
NT tae “OVERLAY union fill; 
NT SK quadword unsigned; 
RTATION quadword unsigned; 
TT_STATE qOVERLAY union fill; 
TT_STATE quadword unsigned; 
TT-STATE_FIELDS stru ture fill; 
ABCNT ee a gy oh n fill; 
CNT ae juns ighed: 
ABCNT word unsigned; 
end a 
OBCNT OVERCAY. ae | fill; 
"OBC NT Longword unsigned; 
OBCNT word unsigned; 


ongword unsigned; 
ng 4en word unsigned; 
end SEGUBN 0 


DIAGBUF vOVERLAY ~ fill: 


piace longword reigned 
TT_PRMPT wore uns! gne 
end DIAGBUF_OVERL 
SEQNUM Longword aa lense 
EXTEND Longword 4. ned; 
ARB Longword unsigne 
KEYDESC lLongword unsigned; 
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N IRPE IS LINKED TO THIS IRP 
/* FILE ACP 1/0 (BOTH DIOCNT AND BIOCNT) 
/* MOUNT VERIFICATION IRP 
/* REMOTE (SLAVE) REQUEST 
/* KEY FOR ENCRYPTION 


/*SYSTEM VIRTUAL atti we OF FIRST PTE 
/*BYTE OFFSET IN FIRST PAGE 


/*BYTE COUNT OF TRANSFER 
/* OLD WORD DEFINITION FOR COMPATIBILITY 


/* ROUND UP TO NEXT LONGWORD 

/*FIRST 1/0 STATUS LONGWORD (FOR 1/0 POST) 
/*MEDIA ADDRESS 

/*SECOND 1/0 STATUS LONGWORD 


/*ADDRESS OF READ TERMINATORS MASK 
/*CARRIAGE CONTROL 


/* PRIVILEGE MASK FOR DECNET 
/* STATION FIELD FOR DECNET DRIVERS 


/* TERMINAL STATE DEFINITIONS 


/* ACCUMULATED BY Hy TRANSF ERED 
/* OLD WORD DEFINITION FOR COMPATIBILITY 


/* ORIGINAL TRANSFER BYTE COUNT 
/* OLD WORD DEFINITION FOR COMPATIBILITY 


/*VIRTUAL BLOCK NUMBER OF CURRENT SEGMENT 
/* SEQUENCE NUMBER IN JOURNAL 


* DIAGNOSTIC BUFFER ADDRESS 
* PROMPT SIZE 


SEQUENCE NU 
ADD 


~~ SOS 
sess 

Oo 

nm 
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/* Standard IRP must contain space for Class Driver CDRP fields. 


/e 


constant CORP equals .; 
constant CORP equals . tag C; 


RWCPTR onquerd : hy »— SOR 
Extensions to the CDRP within the IRP 
CORP_EXTENSIONS union fill: 
Block Transfer Extension 
BLK_XFER_EXTENSION structure fill; 


LBUF longword peg 3 
LBOFF 1 rd unsigned; 
RBUFH_AD Longword pe‘ enees 
RBOF rd unsigned; 


ongwo 
XCT_LEN Longword unsigned; 
constant BT_LEN equals .; 
constant BT-LEN e sqvete - tag C; 
end BLK_XFER_EXTENS! 


Class Driver Extension 
CLS =DRV EXTENSION structure fill; 
FILE. 3 t rd 


il; 
LBUFRNDL shore racter length 12; 
UBARSRCE Tenquoré pat ned; 
DUTUFLAGS Longword unsigned; 
See COR definition for bit field 

finition 
DUTUCNTR word unsigned: 
ENDMSGSIZ word uns gned; 
eet pe CD_LEN equals .; 

t CD-LEN equals . tag C; 

end cs. soRY * EXTENSIONS 


Connection management extension 
CON_ a “caren Om f ecrycture | fill; 
“CNX~ WORK 


“CNX “rtie NT _DATA Bi. Bee fill; 
VAL1 Longword unsigned; 


/* 


Offset to the CORP within the IRP 
Offset to the CDRP within the IRP 


pore —— ft NK 


nk 
size eld for positive section only 
Type. atuays'o of interest 
Fork P 
Fork R 
Fork R& 


Saved return address from level 1 JS8 
Address of allocated MSCP buffer 
Allocated Request ID 
/* Address of Connection Descriptor Table 
RWAITCNT pointer 


Local BUF fer ame ADress 
Local Byte OFFse 

Remote BUF fer Handle ADress 
Remote Byte OFFset 

Transfer Length in bytes 


Skip local buffer handle address (above) 
Local buffer handle 

UNIBUS mapping resources allocated 
Class driver status fiags: 


General purpose counter 
Size of most recent MSCP end message 


data value 1 
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VAL2 longword unsigned; /* data value 
VAL3 Longword unsigned: /* data value 
VALS longword unsigned; /* data value 
VALS longword unsigned; /* date value 
VAL6 longword unsigned; /* data value 
VAL? Longword unsigned; /* data value 
VAL8 Longvord unsigned; /* data value 
end CNX CLIENT _DATA; 
CNX_BLOCK_XFER structure fill; 
FILL_CBUFH_AD Longword fill; f filler for CDRPSL_LBUFH_AD 
FILL VAL Longword dimension 4; filler for VAL2 through VALS 
CNXSUAPTE Longword unsigned; /* Block SVAPTE 
CNXBOFF word unsigned; /* Block ouffer offset 
CNXBCNT Longword unsigned; /* Block xfer Length 
CNXRMOD aoe unsigned; /* Block access mode 
CLTSTS by e unsigned; /* A client's status field 
end CNX BLOCK_XFER; 
end CNX _WORR_AREA; 
MSGBLD Tongword unsigned; /* Address of MSG BUILD routine 
SAVEPC Longword unsigned; /* Caller’s saved PC 
SENDSEQNM word unsigned; /* Message sequence number 
CNXSTATE byte unsigned; /* CNX message state 
constant ( /* Possible states: 
NORMAL /* The standard case (particulary no block xfer) 
» REQUESTOR /* Block transfer requestor 
PARTNER /* Block transfer partner 
5 equals 0 increment 1; 


FILL_5 byte fill; 
RETRSPID OVERLAY union fill; 


RETRSPID Longword unsigned; /* RSPID to return 
BIX longword unsigned; /* BIX address 

end RETRSPID; 

VAL9 longword unsigned /* data value 9 


ned; 
gonatant CM_LENGTH equals .; 
te 


/* The following fields are — valid 
for long connection manager CDRPs. 


VAL10 Longword unsigned /* data value 10 


ed; 
constant CM _LONG LENGTH equals.; 
end CON_MGT_EXTENSTION; 
end CDRP_EXTENS!IONS; 


constant ‘LENGTH’ equals .; 
constant “‘LENGTH’’ equals . tag C; 


end IRPDEF; 
end_module SIRPDEF; 


/* LENGTH OF STANDARD IRP 
/* LENGTH OF STANDARD IRP 


SYS 


2 2 


— 
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gosute SIRPEDEF ; 
/* IRPE = 1/0 REQUEST PACKET EXTENSION 


/* 

/* 1/0 es aes Ses Be a Aa: TO HOLD ADDITIONAL INFORMATI 

/* og! 1/0 REQUEST tS Fy IRE MORE CONTEXT THAN CAN FIT INTO 
/* THE STANDARD ine. ine® S ARE BU AND LINKED ONTO IRP'S BY DEVICE 

/* DRIVER FDOT ROUTINES. ANY FIELDS. ARE NOT DEFINED IN THIS STRUCTURE 


hat 
/* MAY BE USED TO HOLD DRIVER DEPENDENT DATA. 
/* THE CURRENTLY DEFINED FIELDS IN THE IRPE WERE POSITIONED SO THAT THE 
/* PACKET COULD BE USED AS A FORK BLOCK. THIS SHOULD BE KEPT IN MIND IF 
/* AND WHEN NEW FIELDS ARE DEFINED. 


/* THE FIELDS DEFINED HERE MUST BE AT ie SAME OFFSETS AS THEIR CORRESPONDING 
/* FIELDS IN THE IRP (SEE PREVIOUS PAGE). 


soorvortes IRPEDEF structure prefix IRPES; 


longword fill prefix IRPEDEF tag $$; ‘t SPARE LONGWORD 
FILL2 Longword fill prefix IRPEDEF tag $$: /* SPARE LONGWORD 
SIZE" word ions toned: /* SIZE OF IRPE IN BYTES 
TYPE byte ei ee a cooee une TYPE FOR IRPE 
FILL_5 byte fill prefix IRPEDEF tag $$; * SPARE BYT 
FILL_4 Longword dimension 7 fill prefix IRPEDEF tag $$; /* B = LONGWORDS 
FILL_5 word fill prefix IRPEDEF tag $$; /* SPARE WO 
STS_OVERLAY union fill; 
“STS word unsigned; /* STATUS 
STS_BITS structure fil 
FILL 6 bitfield Length 11 fill prefix IRPEDEF fog $$;/* SKIP OVER 11 BITS 
XTEND bitfield mask; OTHER IRPE IS LINKED TO THIS ONE 
end STS BITS; 
end STS_OVERLAY; 
SVAPTE1~ Longword uns igneds /* SYSTEM VIR. ADDR. OF PTE FOR REGION 1 
BOFF1 word unsi pee /* BYTE OFFSET FOR REGION 1 
FILL_7 word fill prefix IRPEDEF tag $$; /* Pose WORD 
BCNTT Longword unsigned; /* BYTE COUNT FOR REGION 1 
SVAPTE Lenguoré unsigned; /* SYSTEM VIR. ADDR. OF FTE FOR REGION 2 
BOFF2 word unsi pee /t BYTE OFFSET FOR REGION 
FILL_8 word fill prefix IRPEDEF tag $$; /* SPARE WORD 
ste NT2 Longword unsigne ned: /* Bvt count FOR ome” 2 
FILL_9 Longword dimension 4 fill prefix IRPEDEF tag $$;7 E LONGWORDS 
EXTERD | COPENGT uns signed; /* ADDRESS ‘OF NEXT IRPE 
constant ‘LENGTH oeusls - prefix IRPES tao K; /* LENGTH OF IRPE 
ct serstent "LENGTH" equals . prefix IRPES tag C; /* LENGTH OF IRPE 


end_module SIRPEDEF ; 
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segs SISDDEF; 
as IMAGE SECTION DESCRIPTOR DEFINITIONS 


ign ed; 
VPNPFC OVERLAY union fill; 
VP’ a4) Longword unsigned; 
VPNPFC BITSO structure fill; 
VPN bitfield length 21: 


ad 
«ar 


eccow-—o-cc —- 


ld; 
l 
le 
Cc 
L 


ow 


ture a 
ength 2 


ructure 


St ts tt @ 


ld; 
ttle 
tfie 
eld 
TSO; 
stru 
eld 
TS1; 
2s 
te 

s 


PFC byt un 9” ed; 
end VPNPP FIELDS 
end VPNPFC_OVERLAY; 
FLAGS OVERCAY union fill; 
FCAGS longword unsigned; 


constant LENDZRO equals . prefix I 
fonesent LENDZRO equals . prefix | 


ear eet structure fill; 


t 
dinens on ; Hitt prefix ISDDEF tag 
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/*SIZE IN BYTES OF THIS ISD 
/*! OF PAGES DESCRIBED BY THIS ISD 


/*VPN & PFC VIELDS 
#* STARTING VIRTUAL PAGE NUMBER 
/* SYSTEM SPACE 


d BF aici. ISDDEF tag $$; /* SPA 
ength 


/* PAGE FAULT CLUSTER 


/* VIRTUAL PAGE INCLUDING P1 & S 
$$: 
/*PAGE FAULT CLUSTER 


/*FLAGS AND ISD TYPE 
2 /*LENGTH OF DEMAND ZERO IS 


; D 
tag ; /*LENGTH OF DEMAND ZERO ISD 


L bitfield mask; /* GLOBAL 

CRF bitfieid mask: /* COPY ON REFERENCE 

DZRO bitfield mask; /* DEMAND ZERO PAGE 

RT bitfield m /* WRITABLE 
MATCHCTL Si etieta’ mask Length 3; /* IDENT MATCH CONTROL FIELD 

LASTCLU bitfield mask; /* ISD IS PART OF LAST PO SPACE CLUSTER 
COPYALWAY bitfield mask; /* COPY ALWAYS FROM USER IMAGE 

BASED’ bitfield mask /* ISECT IS BASED 

FIXUPVEC bitfield m /* ISECT IS FIXUP SECTION 

FILL_2 bitfield Length ‘6 fiLt prefix ISDDEF i $$; /* UNU USED. RESERVED FOR FUTURE USE 

CTOR bitfield m VECTOR CONTAINED IN IMAGE SECTION 
PROTECT bitfield m ask; : TAGE SECTION 1S PROTECTED 
bitfield Length 5 fill prefix ISDDEF dl $$;/* UNUSED, RESERVED FOR FUTURE USE 


FLAGS TIE ty Se estaid fil 


equals 24 prefix ISD tag $S;/* NUMBER OF FLAG BITS, ISD TYPE EXCLUDED 


FTL byte dimension 3° fill prefix ISDDEF tag $8: TYPE CODE 


€“byte ee ned; 
(AGS FEL ° 


end f 
end FLAGS LOVERLAYS 
VBN Longword unsign 


constant LENPRIV ae - prefix IS 4 


constant LENPRIV equals . prefix IS 
“IDENT’’ Longword unsigned; 


oc 
K; /*LENGTH OF PRIVATE 
C; ee 


/*BASE VIRTUAL BLOCK NUMBER 


/*IDENT FOR GLOBAL S 
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GBLNAM character Length 44; /*GLOBAL NAME 

constant LENGLBL equals +788 prefix ISD$ tag K; /*LENGTH OF OL 
constant LENGLBL equals .-28 prefix ISD$ tag C; /*LENGTH OF OL 
constant MAXLENGLBL equals . prefix ISD$ tag K; *MAX LENGTH O 
constant MAXLENGLBL equals . prefix JSD$ tag C; /*MAX LENGTH O 


jee 
i MATCH CONTROL VIELD VALUES 


j equals 0 increment 1 prefix ISD tag SK; 


{t+ 
. ISD TYPE FIELD DEFINITIONS 


constant NORMAL equals 0 prefix ISD tag $K; /*NORMAL PROGR 

/*NO SPECIAL A 
constant SHRFXD equals 1 prefix ISD tag $K; /*SHAREABLE FI 
constant PRVFXD equais ¢ prefix ISD tag $K; /*PRIVATE FIXE 
constant SHRPIC equals prefix ISD tag $K; /*SHAREABLE PI 


Pp 
constant PRVPIC equals 4 pre's ISD tag $K; /*PRIVATE PIC 
constant USRSTACK equals (256-3) prefix ISD tag $K;/*USER STACK 


end ISDDEF; 
end_module SISDDEF; 


% 
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constant ( 
MATALL /*MATCH ALWAYS, USE GLOBAL S$ 
, MATEQU /*MATCH IF ISD$L_IDENT EQU G 
, MATLEQ /*MATCH IF ISDSL-IDENT LEQ G 
MATNEV /*MATCH NEVER, USE PRIVATE C 


SYS 


end 
end 
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yd ISDOLDDEF ; 
ore OLD IMAGE SECTION DESCRIPTOR DEFINITIONS 


eosrevete | ISDOLDDEF structure prefix ISD_; 
rd unsigned; 
PAGCNT “word uns igne d; 
VPNPFC 2 ge al union: 
VPAPF ongyore unsigned; 
VPNPFE Bi 0 structure; 
VPA bitfield length 21; 


e bitfield; /* 
SYSTEM bitfield; 
FILL_1 bitfield sent prefix ISDOLDDEF tag --j, 
PFC Bittielg: Length 8; 
VPNPFC BITS 
VPNPFC_BITS1 structure; 
vPG bitfield “Length 23; 
end VPNPFC_BITS1; 
VPNPFC FIgCDSe struc 
. CL Byte ust dimension 3 fill prefix ISDOLDDEF ta 
ned; 
end At iy 533° 


end VPNPFC OVERLAY: 
FLAGS _OVERCAY union; 
FCAGS longword unsigned; 


constant LENDZRO equals . prefix ISD_ tag K; 
gonstens LENDZRO equals . prefix ISD” tag C; 
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/*SIZE IN BYTES OF THIS ISD 
/*! OF PAGES DESCRIBED BY THIS ISD 


/*VPN & PFC VIELDS 
/* STARTING VIRTUAL PAGE NUMBER 
Pi SPACE 
ye SYSTEM SPACE 
/* SPARE 
* PAGE FAULT CLUSTER 


/* VIRTUAL PAGE INCLUDING P1 & S 
*PACE “FAULT CLUSTE 


/*FLAGS AND ISD TYPE 
/*LENGTH OF DEMAND ZERO 


ISD 
/*LENGTH OF DEMAND ZERO ISD 


GLOBAL 
/* COPY ON REFERENCE 
/* ee ZERO PAGE 


WRITABLE 
/* IDENT MATCH CONTROL FIELD 
/* ISD IS PART OF LAST ‘ SPACE CLUSTER 
OPY ALWAYS FROM USER IMAGE 


TION 

tag NUSED, RESERVED FOR FUTURE USE 
TOR’ CONTAINED ha IMAGE SECTION 

TRAGE SECTION IS PROTECTED 

;/* UNUSED, RESERVED FOR FUTURE USE 


equals 24 prefix ISD tag _S;/* NUMBER OF FLAG BITS, ISD TYPE EXCLUDED 


S BITS structure; 
GBL bitfield mask; /* 
CRF bitfield mask; 
DZRO bitfield mask; 
WRT bitfield mask; /* W 
MATCHCTL bitfield’ mask Length 3; 
LASTCLU bitfield mask; 
COPYALWAY bitfield mask; /* C 
BASED’ bitfield peek /* ISECT 
FIXUPVEC bitfield m /* | 
FILL_2 bitfield Length’ “6 fill prefix ISDOLDDEF t 
VECTOR bitfield mas /* 
PROTECT bitfield mask; /* 
FILL_3 bitfield Length 5 fill prefix ISDOLDDEF tag 
end FLAGS BITS: 
constant FLAGSIZ 
FTL 


FLAGS fee: structure 


byte Sinonaten § #014 prefix ISDOLDDEF ta 


YPE soyte unsigned; 
end FLAGS IELDS; 

end FLAGS_OVERLAY; 

VBN longword uns ig ne 

constant LENPRIV cme - prefix ISD_ tag K; 

constant LENPRIV equals . prefix ISD” tag C; 
IDENT’’ Longword unsigned; 

GBLNAM character length 1 

constant LENGLBL ar 6 srotiz ISD_ tag K; 


+186 TYPE CODE 


/*BASE VIRTUAL ook NUMBER 


~ 
a 
[3 
3 
> 
aa 
z 
=z 
z 
—" 
om 


/*LENGTH OF GLOBAL ISD 


end 


———— 
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constant LENGLBL equals . prefix ISD_ tag C; /*LENGTH OF GLOBAL ISD 


{e+ 
ie MATCH CONTROL VIELD VALUES 


/*BASE OF ZERO , INCR 1 
constant ( 


MATALL /*MATCH ALWAYS, USE GLOBAL SECTION 
~ MATEQU /*MATCH ir ISD_L_IDENT EQU GBL ID 
, MATLEQ /*MATCH IF ISD_L IDENT LEQ GBL ID 
MATNEV /*MATCH NEVER, USE PRIVATE COPY 
§ equals 0 increment 1 prefix ISD tag _K; 
{ee 
. ISD TYPE FIELD DEFINITIONS 
constant NORMAL equals 0 prefix ISD tag _K; /*NORMAL PROGRAM IMAGE SECTION 
/*NO SPECIAL ACTION REQUIRED 
constant SHRFXD equals 1 prefix 138 tag _K; /*SHAREABLE FIXED SECTION 
constant PRVFXD equals prefix ISD tag _K; /*PRIVATE FIXED SECTION 
constant SHRPIC equals prefix ISD tag _K; /*SHAREABLE PIC SECTION 
constant PRVPIC equals 4 prefix ISD tag K; /*PRIVATE PIC SECTION 
constant USRSTACK equals (256-3) prefix ISB tag _K;/*USER STACK SECTION 


end ISDOLDDEF ; 
end_module ISDOLDDEF ; 


nt — ~ 
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module SJIBDEF; 
/e+ 


/* Job Information Block = Structure containing common context for a set 
/* of related processes. 


/* 
/* Note: The Executive module SYSCREPRC assumes that the job mount List head 
es preceeds the username field in the JIB. 
/t- 
aggregate JIBDEF structure prefix JIBS; 
MILFL longword unsigned; /* Job mount List head forward Link 
MTILBL lLongword unsigned; /* Job mount List head back Link 
SIZE word unsigned; /* Size of structure in bytes 
TYPE pree unsigned; /* Structure type code 
DAYTYPES byte unsigned; /* Set bits 0-8 flag non-prime days of week 
USERNAME character Length 12; /* User name for easy access 
ACCOUNT character Length 8; /* Account name for resident access 
BYTCNT longword unsigned; /* Buffered 1/0 byte count avail 
BYTLM Longword unsigned; /* Original value for Byte count 
PBYTCNT Longword unsigned; /* Paged pool byte count remaining 
PBYTLIM Longword unsigned; /* Paged pool byte Limit 
FILCNT word unsigned; /* Open File count remaining 
FILLM word unsigned; /* Open file Limit 
TQCNT word unsigned; /* Timer queue entry count remaining 
TQLM word unsigned; /* Timer queue entry Limit 
PGFLQUOTA Longword unsigned; /* Paging file quota 
PGFLCNT Longword unsigned; /* Paging file Limit 
CPULIM cangeer’ unsigned; /* CPU time quota remaining 
PRCCNT word unsigned; /* Count of subprocesses existing 
PRCLIM word preserees /* Limit on number of subprocesses 
SHRFCNT word unsigned; /* Shared file block count remaing 
SHRFLIM word unsigned; /* Shared file count Limit 
ENQCNT word unsigned; /* Enqueue count avail 
ENQLM word unsigned; /* Enqueuve Limit 
MAXJOBS word unsigned; /* Max jobs Limit on user 
MAXDETACH word unsigned; /* Max detached processes for user 
MPID porguere unsigned; /* PID of master process — 
JLNAMFL Longword unsigned; /* Forward Link for Job-wide logical names 
JLNAMBL Longword unsigned; /* Back Link for job-wide logical names 
PDAYHOURS Longword unsigned; /* Field describing primary day access 
ODAYHOURS longword unsigned; /* Field describing off day access 
JOBTYPE byte unsigned; /* Job origin type 
constant ( 
DETACHED 
- NETWORK 
- BATCH 
- LOCAL 
» DIALUP 
REMOTE 
j equals 0 increment 1 fag €3 
FILL_4 byte dimension 3 fill tag $$; 
ORG_BYTLM Longword unsigned; /* Original BYTLM 
ORG_PBYTLM songwerd unsigned; /* Original PBYTLM 
conStant ‘LENGTH’ equals . prefix JIB$ tag K; /* Structure Length 
constant "LENGTH" equals . prefix JIB$ tag ¢; /* Structure Length 
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end JIBDEF; 
end_module SJIBDEF; 
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module SKDZDEF; 
{t+ 


/* KOZ11 Offset Definitions for Registers Accessible Through 8 Node Private 
/* Space. Note that in making these registers available in virtual space, 
/* we have onl mapped real registers. Therefore these virtual offsets are 
. different than the hardware physical offsets. 


/t 
/* BIIC registers - here we reserve space for the $76 bytes thas these 
/* Erg"pters occupy and we also fill out the virtual page to 
/* 51¢ bytes so that other items appear on page boundaries. 
/* Being able to address the BIIC via these virtual addresses 
/* allows a Scorpio CPU to determine its own node number. 
/* That is, a reference here is via node private space and 
/* always addresses a nodes own registers via a loop back 
/* request. 
/* 
BIICBASE byte unsigned; /*BIIC register Base 
FILL_1 byte dimension 511 fill prefix KDZDEF tag $$;/* Fill out to page. 
/* 
Ae Port Control CSR register 
& 


PCNTL_OVERLAY union fill; 
PUNTL Longuord unsigned; 
PCNTL_BITS structure fit; 

e 


ny 4. Control CSR Register 
PENTL_RSTRT bitfi 


Port Controller CS 
mask; /* (RO) Front Panel Switch 
/* selecting RSTRT/HALT 


PCNTIL_PHYLOG bitfield mask; /* (RO) Backplane Bit 

/* selecting PHYS/LOG Console 
PCNTL_SECENB bitfield mask; /* (RO) Front Panel Switch 

/* to lock out console input 
PCNTL_STINIT bitfield mask; /* Self-Test INIT. 
PCNTIL_STFAST bitfield mask; /* (RO) Backplane bit to 

/* select Fast Self-Test. 
PCNTL_ENBAPT bitfield mask; /* Enable APT. 
PCNTIL_STPASS bitfield mask; /* Self-Test Pass. end 
PCNTL_R bitfield mask; /* 1=>Program mode,0=>Console 
FILL_2 bittield fill prefix KDZ tag $$; /* end 
PCNTC_CLREVL bitfield mask; /* Clear Event Lock 
PCNIL_WRMEM bitfield mask; /* Write Memory Bit 
PCNTL_EV4 bitfield mask; /* Event Bits - These 
PCNTL_EV bitfield mask; /* RO bits are event 
PCNTL_EV bitfield mask; /* codes from BIIC to 
PCNTL_EV bitfield mask; /* allow CPU to monito~ 
PCNTL_EVO bitfield mask; /* 4. status 3 
PCNTL_WWwPO bitfield mask; /* Write Wrong Parity Odd 
FILL 3 bitfield Length 2 fill prefix KDZ tag $$;/* 
PCNTC_RXDIS bitfield mask; /* Sisable Rx50 
PCNTL_NIDIS bitfield mask; /* Disable NI Lance 
PCNIL_CNSLIE bitfield mask; /* Console Interrupt Enable 
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PCNTL_CNSLCL bitfield mask; /* Clear Console sntorrust 
PCNTL_CNSLIN bitfield mask; /* Console Interrupt RCV 
PCNTL_WWPE bitfield mask; /* Write Wrong Parity Even 
PCNTL_RXDONE bitfield mask; /* RX Done Interrupt 
PCNIL_RXSTAT bitfield mask; /* RX Status Interrupt 
PCNTL_CLRIPI bitfield mask; /* Clear IP ng 
CNIL_IPINTR bitfield mask; /* IP Interrupt RCV 

PCNTL_CROIE bitfield mask; /* CRD Interrupt Enable 
PCNTL_CLRCRD bitfield mask; /* Clear CRD Interrupt 

INT bitfield mask; /* CRD Interrupt RCV 


end PCNTL_OVERLAY; 
FILL_4 byte dimension 508 fill prefix KDZDEF tag $$;/* Fill out page 


/* NI Packet Buffer 
/* 


NIBUF byte unsigned; 


/*NI Packet Buffer Base 
FILL_S 


yte dimension 32767 fill prefix KDZDEF tag $$;/* Fill out to 32kB 
/* 
/* EEPROM 
/t 
EEPROM byte unsigned; /*EEPROM Base 
FILL_6 byte dimension 8191 fill prefix KDZDEF tag $$;/* Fill out to 8kB 
/* NI Data Register 
® 


NIDATA Longword unsign /* NI 
FIL i 


ed; Data Register 
L_7 byte dimension 508 fill prefix KDZDEF tag $$;/* FiLL 


LL out page 
/* NI Address Register 
® 


NIADDR Longword unsigned; /* NI Address Register 
FILL_8 byte dimension 508 fill prefix KDZDEF tag $$;/* Fill out page 


/* 
. RCX5O Registers 


RCX50 ores unsigned; 


/* RCX50 Registers 
FILL_9 ikl 


d; 
yte dimension 511 fill prefix KDZDEF tag $$;/* F out page 
/* 
fe Watch Chip Registers 
cs 


WATCH byte unsigned; /* Watch Chip Registers 
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FILL_10 byte dimension 511 fill prefix KDZDEF tag $$;/* FILL out page 
end KDZDEF; 
end_module SKDZDEF; 
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module SKFDDEF; 
. KNOWN FILE DEVICE AND DIRECTORY BLOCK DEFINITIONS 


Longword unsigned; /* Device, Beaty 94 F Extension (KFD) List Link 
KF ELIS! oauere gna 1gnens /* Ordered Known file entry List header 
SIZE word unsi \gned ; /* Size of block 
TYPE byte uns igned: /* Structure type 
SPARE byte uns gned; /* spare 
REFCNT word unsigned; /* Number of KFE's with same KFD 
DEVLEN byte unsigned; /* Length of Device string 
DIRLEN byte unsigned: /* Length of bal gag | string 
DDTSTRLE pyte uns igne /* Length of Device, irectory, Type (DDT) string 
constant ‘‘LENGTH"' Mae | - prefix KFD$ tag C; /* Length of fixed area of kfd entry 
DDTSTR character Length 0; /* Offset to DDT string 


end KFDDEF; 
end_module SKFDDEF; 
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module SKFEDEF; 
. KNOWN FILE ENTRY DEFINITIONS 


Pearl unsigned: 


tant BITS struct 
PROTECT bittield: mask; 
LIM bitfield mask; 
PROCPRIV bitfield mask; 
OPEN bitfield mask; 
HDRRES bitfield mask; 
SHARED bitfield mask; 
SHMIDENT bitfield mask; 
COMPATMOD bitfield mask; 
NOPURGE bitfield mask; 
ACCOUNT hitfield mask; 
WRITEABLE bitfield mask; 
EXEONLY bitfield mask; 

end FLA TS; 


LAGS BI 
end FLAGS_OVERLAY; 
GBLSECCNT word unsigned; 

USECNT Longword uns gned; 
ames re ERLAY union; 
aie unsigned: 
uinoow peer structure: 
ERLAY union; 
PID word unsigned; 
D_NUM ware unsigned; 
D- OVERLAY 
D_SEQ” word unsigned: 
end WINDOW FIELDS; 
end WINDOW OVERLAY; 
IMGHDR OER AY union 
R longword wns igned: 


ayaa hy quadword ,uns igned: 


MATCHCTL byte unsigned; 
FILL_4 byte fill prefix KFEDEF tag $$; 
word unsigned; 


AMECOD | 
SIDENT" l ord unsigned; 

ongwer signe 
SHRCNT word wusleneds” 
FILNAMLEN byte unsigned; 
constant "LENGTH'' equals . prefix KFES tag K; 
constant ‘LENGTH’ equals . prefix KFE$ tag C; 
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Known file Hash table Link 

Ordered Known file entry list Link 

Size of block 

Seructure t type 

KFE —. able index (index pate vector of HSHQ‘'s) 
Device, Directory, Type bloc 


Flags word 


known file was installed protected 
Linkable image 

Use process bgt: mask 

Image installed 

Image header block is resident 
Image is shared 

Shared memory ident already set 
Image is compatability mode 

Image entry may not be purged 
Image level accounting 

Global sections are writeable 
Image has only execute access allowed 


Global section count if shared 
Usage counter 


WCB address if open 


File id 
File number field of file id 


File sequence number field of file id 


Image header address if residen 
Relative volume number field ~ file id 


Process privilege mask 

Global eeceras match control 
spare byt 

Image Rlodee code specifying AME 
Global section igent value 
Address of Object Rights Block 
High water mark for sharing 
Length of file name 

Length of fixed area of KFE entry 
Length of fixed area of KFE entry 
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constant MAXLEN equals . “33 prefix K S top K; 
constant MAXLEN equals .+359 prefix KFE$ tag C; 
FILNAM character Length 


end KFEDEF; 
end_module SKFEDEF; 
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cludes max filename) 
cludes max filename) 
e 


j 
— 
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goanve SKFHDEF; 
is KNOWN FILE IMAGE HEADER DEFINITIONS *** obsolete, to be removed *** 


i 


ooerenete St KFHDEF structure prefix KFHS; 


Longword unsigned; /*ADDRESS OF END OF KNOWN FILE HEADER 
oie longword unsigned; bee aeetae OF AS ae te KNOWN FILE ENTRY 
SIZE word wd | ane» /*SIZE OF DYNAMIC STRUCTURE 
TYPE byte uns ftp /SDYNARIE STRUCTURE TYPE 
FILL_1 byte \ prefix KFHDEF tag $$; /*SPARE BYTE 
constant “LENGTH” equals . prefix KFHS tag C; /*LENGTH OF OVERHEAD AREA 


/* 
/* THE REMAINDER OF THIS STRUCTURE CONTAINS THE IMAGE HEADER 4 att 

/* SPECIFIED KNOWN FILE. THE LOCATION KFISL ae IN THE KNOWN FILE 

a te POINTS KFHSC “LENGTH INTO THIS STRUCTURE, I.E AT THE INAGE HEADER 


/* 
end KFHDEF; 


j 

| 

constant. "LENG equals . prefix KFHS$ tag K; /*LENGTH OF OVERHEAD AREA 
j 


PAPA AAA AA AA AAA AAO ON ONO 


e*eeee eee eee eaeeaneaeeeaeaneaet 


os 


end_module SKFHDEF; 


+ 
m > ww 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
c 
{ 
{ 
{ 
c 
{ 
{ 
{ 
{ 
c 
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module SKF IDEF; 
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Ae KNOWN FILE ENTRY DEFINITIONS *** obsolete, to be removed *** 


egorepete Kt KFIDEF structure prefix KFIS$; 
Longword unsigned; 
KFI OBL Longword unsigned; 
SIZE pore unsigned; 
TYPE byt 


KFICTL_BITS oeret ture fill; 
KFTH sk; 


/*KNOWN FILE QUEUE FORWARD LINK 
/*KNOWN FILE QUEUE BACK LINK 
/*SIZE OF BLOCK 

/*STRUCTURE TYPE 


/*CONTROL BITS 


HD bitfield mas /*KNOWN FILE HEADER BLOCK 

FILIDOPEN bitfield mask; /*OPEN BY FILE ID IF SET 

DONOTOPEN bitfield m /*DO NOT OPEN THE FILE IF SET 

FILL_1 bitfield re 3 fill prefix KFIDEF tag $$; /*SPARE 

NOREPLACE bitfield n /*BELETE AND DO NOT REPLACE ENTRY 
RKDEL bitfield ma 7*ENTRY IS TO BE DELETED 


MA 
end KFICTL BITS; 
end KFICTL_OVERLA 
DEVUCB._ OVERLAY oo fill; 
DEVU : 


KF IQNUM byte un  F 
KFISEQ_ OVERLAY union fill; 
SEQ byte unsigned; 
constant KFIHDLE equals - prefix KFI$ t 
constant KFIHDLEN equals . prefix KFI$ t 
KFISEQ BITS structure fill; 
KFISEQ bitfield mask Length 2; 
end KF ISEQ BITS; 
end KFISEQ OVERLAY; 
FLAGS OVERLAY union fill: 
FCAGS word unsigned; 
FLAGS yits structure fill; 
KP_OPEN bitfield mask; 


es 


*DEV CE UCB OFFSET 
THE ABOVE CONSISTENTLY 


l 

AME 

ECTORY NAME ie ther 

E NAME STRING OFFSET 

E TYPE ieee OFFSET 

ERENCE COUN 

Q NUMBER INDEX INTO VECTOR OF KFIQ"S) 


/*KNOWN FILE ENTRY SEQUENCE NUMBER 
/*LENGTH OF KFI HEADER FIXED PORTION 
/*LENGTH OF KFI HEADER FIXED PORTION 


/*SEQUENCE NUMBER FIELD 


arm 2 


/*FLAGS WORD 


/*KEEP THE IMAGE FILE OPEN 


E 
RESIDENT 


bi Fl 

pa bitfield mask; /*MAKE IMAGE HEADER 
KP-SHARED bitfield mask; /*MAKE IMAGE SHARED 
PROTECT bitfield mask /*KNOWN FILE WAS INSTALLED PROTECTED 
FILL_2 bitfield Length 2 fill prefix KFIDEF tag $$: /*SPARE BITS 
LIM Bitfield mask; /*C INKABLE IMAGE 
PROCPRIV bitfield mask; *USE PROCESS PRIVILEGE MA 

_RESHDR bitfield mask; /*IMAGE HEADER BLOCK 15 RESIDENT 
IS_ SHARED bitfield mask /*I]MAGE IS SHARED 

CL_3 bitfield Length i fit prefix KFIDEF tag $ $$: /*SPARE Pils 
SHMIBENT bitfield mask; /*SHARED MEMORY IDENT ALREADY SET 

at t c OMPATHOD bitfield d mask; /*IMAGE IS CORPAT ABILITY MODE 
end FLAGS LOVERCAY: 


“” 
=e 
” 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AA AAA AAA AAO ON 
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GBLSECCNT word unsigned; 
USECNT Longword uns gned; 
WINDOW OVERLAY union fill; 
WINDOW Longword unsigned; 
WINDOW FIELDS structure fill; 
FIB_OVERLAY union fill; 
“FID word unsigned; 
FID_NUM soe unsigned; 
end 1D. OVERLAY; 


end WINDOW OVERLAY; 
TAGHDR R OVERLAY union fill; 
0 HDR Longword yns igned: 
D_RVN vere una tgne 
end TAGRDR O AY; 
PROCPRIV eaeatd unsigned; 
hey byte unsign 


ed; 
FILL_4 byte fill pretia KFIDEF tag $$; 


AMECOD word unsigned; 

IDENT SOENGTH uns ign d; 
constant "LENGTH" mis - prefix K 
constant ‘LENGTH’ equals . prefix K 


end KFIDEF; 
end_module SKFIDEF; 


FI 
FI 
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K: 
C 


/*GLOBAL SECTION COUNT IF SHARED 
/*USAGE COUNTER 


/*WCB ADDRESS IF OPEN 


/*FILE ID 
/*FILE NUMBER FIELD OF FILE ID 
/*FILE SEQUENCE NUMBER FIELD OF FILE ID 


/*IMAGE HEADER ADDRESS IF RESIDENT 
/*RE'ATIVE VOLUME NUMBER FIELD OF FILE ID 


/*PROCESS PRIVILEGE MASK 

’*GLOBAL SECTION MATCH CONTROL 
/*SPARE ‘ey TE 

/*IMAGE HEADER leat tua AME 


TION 
/*LENGTH OF FIXED AREA OF KFI ENTRY 
FIXED AREA OF KFI ENTRY 


| AAA AAAAAAASAAPAAAAAAAAAAAAAAAAAAAAAAAOE AAA AAA AAO ONO 
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module SKFPDEF ; 


“ KNOWN FILE POINTER BLOCK DEFINITIONS *** obsolete, to be removed *** 
everesate Xt KFPDEF gett prefix KFP$; 
QUECOUNT byte unsigne ad by 43 OF LAST KNOWN FILE LIST IN USE 
FILL1 byte fill prefix KF PDEF Ne $8: /*SPARE BYTE 
FILL 2 word fill prefix KFPDEF : Be /*SPARE WOR 
FILL_5 Longword fill prefix KFPDE tag $$; /*SPARE LONG W 
SIZE-word unsigned; /*SIZE OF POINTER BLOCK IN BYTES 
TYPE wove unsigned; aereae i BLOCK TYPE 
TYP + yte uns gned; /*TYPE OF STRUCTURE POINTED TO 


QUEO Longword unsigned; 
end KFPDEF; 
end_module SKFPDEF; 


/*POINTER TO KNOWN FILE QUEUE 0 


¢ 
{ 
¢ 
¢ 
¢ 
¢ 
c 
c 
( 
( 
| 
€ 
c 
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nodule SKFPBDEF; 
. KNOWN FILE POINTER BLOCK DEFINITIONS 


aggregate KFPBDEF structure prefix KFPBS; 
* KPDLST l } ; 


ongword uns gned; /* Device, Directory Prteneton (KFD) List Link 
KFEHSHTAB lLongword unsigned; /* Address of Known file name hash table 
SIZE word unsigned; /* § ze of princes block in bytes 
TYPE byte unsigned; /* Pointer Block type 
SPARE ye uns gned: /* spare byte 
KFDLSTCNT word unsigned; /* Number of entries in KFD List 
HSHTABLEN word unsigned; /* Length of Hash table 
constant ‘‘LENGTH'’ equals . prefix KFPB$ tag K; /* Length of pointer block 
constant “‘LENGTH’’ equals . prefix KFPB$ tag C; /* Length of pointer block 


end KFPBDEF; 
end_module SKFPBDEF ; 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
¢ 
{ 
{ 
| 
c 
c 
{ 
{ 
{ 
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module SKFRHDEF; 
. KNOWN FILE RESIDENT IMAGE HEADER DEFINITIONS 


eooregere Kt KFRHDEF structure prefix KFRHS$; 
Lenguer? unsigned; /* Address of end of known file header 


ee word unsi signe ed; /* Use pecondary name on activation 
FILL_1 word fil prefix KFRHDEF tag $$; /* SPARE BYTE 
1ZE“word unsigned; /* Size of dynamic structure 

TYPE byte unsigned; /* Dynamic structure type 

HDRVER "byte unsigned; /* Image header version 

constant ‘LENGTH. equals . prefix KFRH$ tag K /* Length of overhead ores 

constant ‘LENGTH’ equals . prefix KFRH$ tag C: /* Length of overhead are 

IHD character Length 0; /* Offset to decoded snoge Header 


/* THE REMAINDER OF THIS STRUCTURE CONTAINS THE — HEADER OF att 

/* SPECIFIED KNOWN FILE. THE LOCATION KFESL_IMGHDR IN THE KNOWN FILE 

/* cre KFRHSC _LENGTH iNTO THIS STRUCTURE. 1.E AT THE IMAGE HEADER 
ond KFRHDEF; 


end_module SKFRHDEF ; 
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module SLKBDEF; 
{te 


/* 
/* 
/* 
/* 
/* 
/t- 


LKB = LOCK BLOCK 


LOCK BLOCKS ARE USED TO MAGE hit ExT eae gee Come RLOEK 
TO THEM AND ARE LINKED ONTO ONE OF THREE QUEUES IN A RESOU 


REQUEST). LOCK BLOCKS HAVE AN 
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FOR 
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RCE 


eserepete Ut LKBDEF structure prefix LKBS$; 
Longword unsigned; /*AST QUEUE FORWARD LINK 
ASTQBL longword unsigned: /*AST QUEUE BACKWARD LINK 
SIZE word unsigned; *SIZE OF LKB I 
TYPE byte unsigned; /*STRUCTURE TYP 
R structure byte mls nt /*ACCESS oo OF REQUEST 
MODE bitfield Length * MODE SUBFIELD 
FILL_1 bitfield Length. 2 fill retin wt tag $;/* § 
PKAST bitfield mask; 1GGY BACK ipECTAL KERNEL AST 
NODELETE bitfield peeks be DONS T ae ft ON DELIVERY 
QUOTA bitfield mask; /* ACCOUNT FOR QUOTA 
ad KAST bitfield mask; /* SPECIAL KERNEL AST 
PID Lon word” unsigned; /*PROCESS ID OF REQUESTING PROCESS 


AST_OVERLAY union fill; 
“AST Longword unsigned; 
RQSEQNM word unsigned; 

end AST_OVERLAY; 

ASTPRM OVERLAY Union fill, 
asires Congword unsigned; 


EPID ongeer Syt unsigned; 
end ASTPRA OVE 
START Lon union’ fill; 


peace unsigned; 
UETIME nee unsigned; 
end RAST OVER 
CPLASTADR Longword unsigned; 
BLKASTADR Longword unsigned; 
LKSB ene union fill; 
spore unsigned: 

Se eeeat enquere uns igned; 

end LKSB_OVERLA 


FLAGS word unsigned; 

STATUS structure word unsigned; 
DCPLAST bitfield mask; 
DBLKAST bitfield mask: 
ASYNC bitfield mask; 
BLKASTQED bitfield mask; 
MSTCPY bitfield mask; 

OTA bitfield mask; 
TIMOUTQ bitfield mask; 
WASSYSOWN pret ield mask; 
CvTTOSYS » tfield mask; 
PROTECT » tfield mask; 

SEND bitfield mask; 


/*ADDRESS OF AST ROUTINE 
/*REQUEST SEQ. NUMBER 


/*AST PARAMETER 
/*EPID (MASTER COPIES ONLY) 


/*SPECIAL KERNEL AST ADDRESS 
/*DUETIME FOR WAITING LOCKS 
/*ADDRESS OF COMPLETION AST ROUTINE 
/*ADDRESS OF BLOCKING AST ROUTINE 
/*ADDRESS OF LOCK STATUS BLOCK 
/*DEADLOCK PRIORITY (MASTER COPIES) 
/*USER SPECIFIED FLAGS 

/* INTERNAL STATU 

/* DELIVER COMPLETION AST 

/* DELIVER BLOCKING AS 

/* REQUEST COMPLETED + Mar er eee 
/* BLOCKING AST HAS BEEN QUEUED 

/* LKB IS A MASTER COPY 

/* DON'T CHARGE QUOTA 

/* LKB IS ON TIMEOUT QUEUE 

/* WAS SYSTEM OWNED LOCK 

/* CVT BACK TO SYS. OWNED 

/* PROTECTED LOC 

/* RESEND DURING FAILOVER 
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end STATUS; 
LKST1 5008 word “uns igne 
UKst2 oy Ray union Mit: 
grere uns ign 


LKID_ lon pore unsigned; 
end LKST2_OV 
sonoes byfe a of 
GRMOD = Syte unsigned; 
STATE byte unsigned; 
constan 


de _— 1 increment -1; 
EFN byte unsigned 
SQFL longword unsigned: 
SQBL_Longword unsigned; 
OWNQFL Longword unsigned; 
OWNQBL Longword unsigned; 
PARENT Longword, une grees 
REFCNT word unsigned; 
TSLT byte uns i ned: 
FILL 2 byte fill; 
RSB Tongword vt, a 
REMLKID senguere une ped: 
CSID tte union f 
ee onguere Mi. gned 
DASTPRA Longword yo ee 
VERLAY; 


eng S10. Longuord unsigned; 
constant "LENGTH’ equals . prefix LKBS$ tag K 


end LKBDEF; 
end_module S$LKBDEF ; 


ed; 
Saat RCBLE N eeusls - prefix LKBS tag K; /*LENGTH OF ACB PORTI 
constant ACBLEN equals . prefix LKBS tag ¢; I 


constant "LENGTH" equals . prefix LKB$ tag C: 
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/*FIRST LOCK STATUS LONGWORD 
/*SECOND LOCK Ma ag LONGWORD 


OF LKB 
NO 


ON 
UZLENGTH OF ACB PORTION OF LKB 


/*REQUEST MODE 


OCK STATE 

oe akan PrATE VALUES 

/* ee eae 

/* RETRY REQUEST 
SCS_WA 


/* RES ponte NOT QUEUED 
QUEUED 


ESPO 
/* RESPONSE RESEND 
/*EVENT FLAG NUMBER 


RWARD LINK 
/*QWNER QUEUE BA a wy LINK 


PARENT LKB 
/*SUB_LKB REFERENCE COUNT 
/STIMESTARP LIFETIME 


/*ADDRESS OF OWNER RSB 
/*REMOTE LOCK ID 


/*CLUSTER SYSTEM iD (MASTER ONLY) 
/*OLD AST PARAMETER 


Fee BLOCKING “ ADOR, 
/*LENGTH OF LKB 
7*LENGTH OF LKB 


AAAA AAA AAAAAAAAAA 


% 
* 


SYSDEFFL.SOL;1 16-SEP-1984 16:45:24.68 Page 64 


ae SLOGDEF ; 
LOG = LOGICAL NAME BLOCK 


/* THERE IS ONE LOGICAL NAME woo FOR EACH LOGICAL NAM :¢ ATS ENT INA 
/* SYSTEM. LOGICAL NAMZ BLOCKS CAN BE LINKED INTO ONE OF THREE TABLES 
/* 1. . 0 eit TABLE. 
/* s- ¢ GROUP WIDE TABL 
. THE SYSTEM WIDE TABLE. 
hic 
eggregate LOGDEF structure prefix LOGS; 
FL longword unsigned; /*LOGICAL TABLE FORWARD LINK 
Le i anes ane Sgnens /*LOGICAL TABLE BACKWARD LINK 
unsigned; /*SIZE OF £08 IN price 
TYPE byte unsigned; /*STRUCTURE TYPE FOR LOG 
TABLE byte uns gned; /*LOGICAL NAME ane HYPE 
GROUP word uns igned: /*CREATOR GROUP NUMBER 
AMOD byte unsi pred /*ACCESS MODE OF CREATOR 
FILL_1 ‘ te fill prefix LOGDEF tag $$; /*SPARE BYTE 
MBXUCB_OVERLAY union fill; 
MBXUCB Longword yiinsion ed; /*MAILBOX UCB ADDRESS 
pe ENGTH' equals . prefix LOGS tag K; /*LENGTH OF FIXED PART OF LOG 
onstant ‘LENGTH’ equals . retix LOGS tag C; /*LENGTH OF FIXED PART OF LOG 
MBX UCB_FIELDS structure fil 
F byte dimension 4 FLL prefix LOGDEF tag $$; 
NAME character Length 0 tag T; /*START OF LOGICAL NAME 


: LOGICAL NAME TABLE NUMBERS 
® 


constant SYSTEM equals 0 prefix LOG tag $C;/*SYSTEM NAME TABLE 
constant GROUP equals 1 prefix LOG tag $C;/*GROUP NAME TABLE 
constant PROCESS equals 2 prefix LOG tag $C;/*PROCESS NAME TABLE 


a MAXIMUM LENGTH OF LOGICAL NAME STRING 


constant NAMLENGTH equals 64 prefix LOG tag $C;/*MAXIMUM LENGTH OF LOGICAL NAME STRI\iG 
end MBXUCB_FIELDS; 
end MBXUCB_ OVERLAY; 
end LOGDEF; 


end_module $LOGDEF ; 


ee | 
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end LNMCDEF ; 


SYS! 
nodule SLNMSTRDEF ; 
LNMB = LOGICAL NAME BLOCK 
¢ There is one logical name block per logical name that is defined. 
These block are chained from the hash table (SLNMHSH). 
t Each translation is a sub-block of this structure. 
aggregate LNMBDEF structure prefix LNMBS$; 
FLINK Longword unsigned; /* Forward Link in List 
BLINK bonguore unsigned; /* Backward Link in List 
SIZE word unsigned; /* Size of LNMB in bytes 
TYPE byte unsigned; /* Structure type for LNMB 
ACMODE byte unsigned; /* Owner access mode / integrity level byte 
TABLE longword unsigned; /* Logical name table header address 
FLAG_BITS union; 
FLAGS byte unsigned; /* Name attributes 
BITS structure; 
NO_ALIAS bitfield mask; /* Do not allow outer mode alias 
CORFINE bitfield mask; /* Do not copy into subprocess 
CRELOG bitfield mask; /* Created with old SCRELOG service 
TABLE bitfield mask; /* This is a table name 
NODELETE bitfield mask; /* Do not allow this table to be deleted 
end BITS; 
end FLAG_BITS; 
NAME character length 1; /* Name string (counted) 
/* Translation blocks begin immediately 
/* follewing name 
end LNMBDEF ; 
{+ 
: LNMC = LOGICAL NAME TABLE NAME CACHE BLOCK 
{ There are some logical name table name cache blocks err rocess. 
; These block are doubly-linked from a P1 space cell (CTLSGQ_LNMTBLCACHE). 
overepete LNMCDEF structure prefix LNMCS$; 
FLINK longword unsigned; /* Forward Link in List 
BLINK lLongword unsigned; /* Backward Link in List 
SIZE word unsigned; /* Size of LNMC in bytes 
TYPE byte unsigned; /* Structure type for LNMC 
CACHEINDX byte unsigned: /* Current entry number 
TBLADDR Longuore unsigned; /* Logical name table name address 
PROCDIRSEQ longword unsigned; /* Process directory sequence number 
SYSDIRSEQ Longword unsigned; /* System directory sequence number end 
constant NUM_ENTRIES equals 26; /* Number of table header entries. end 
ENTRY Longword dimension LNMCS$K_NUM_ENTRIES; /* Logical name table header addresses 
constant LENGTH equals . prefix LNMC$ tag K; /* Length of header 
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{+ 
¢ LNMX = LOGICAL NAME TRANSLATION BLOCK 
{ There is one logical name translation block per logical name translation. 
{ These blocks are sub-blocks of the logical none block (SLNMB). 
LAGS byte unsigned; /* Translation attributes 
BITS structure; 
CONCEALED bitfield mask; /* Do not display result of translation 
TERMINAL bitfield mask; /* Do not retranslate result of translation 
XEND bitfield mask; /* End of translations flag 
end BITS; 
end FLAG_BITS; 
INDEX byte; /* Translation index 
constant ( 
"HSHF CN", /* Hash function value 
"BACKPTR", /* Backpointer translation 
/* Logical name table header 
) equals -128 increment 1 prefix LNMX$ tag C; 
HASH word; /* Hash code for logical names in directories 
XLATION character Length 1; /* 


Translation eee ing (counte 
/* The next translation block 


' 
aggregate LNMXDEF structure prefix LNMX$; 
FLAG_BITS union; 
/* <4 Mee immediately following 


/* s translation string 
end LNMXDEF ; 
{+ 
: LNMTH = LOGICAL NAME TABLE HEADER BLOCK 
{ There is one logical mame table header block for each logical name table. 
; A logical name table header is a specially flagged translation. 
eggregate LNMTHDEF structure prefix LNMTHS; 
FLAG BITS on; 
FLAGS byte unsigned; /* Logical name table flags 
BITS structure; 
SHAREABLE bitfield mask; /* Logical name table is shareable (SO space) 
DIRECTORY bitfield mask; /* Logical name table is a directory table 
GROUP bitfield mask; /* Logical name table is a group logical name table 
ab bitfield mask; /* Logical name table is the system logical name table 
e . 
end FLAG_BITS; 
HASH Longword unsigned; /* Address of hash table 
ORB longword unsigned; /* Address of Object Rights Block 
NAME Longword unsigned; /* Address of containing LNMB block 
PARENT longword unsigned; /* Address of parent table 
CHILD Longword unsigned; /* Address of a chile table 
SIBLING Longword unsigned; /* Address of a siblin seele 
QTABLE lLongword unsigned; /* Address of table holding quota 
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ABNF ay longword; /* pattie} ¢ quota 
word; /* Remain ng quota 
constant LENGTH H equals + prefix LNMTHS tag K; /* Length of header 
end LNMTHDEF; 
7 
LNMHSH = LOGICAL NAME HASH TABLE BLOCK 
There is one logical name hash table block for system space and 
another for each process. 
overeete, LNMHSHDEF structure prefix LNMHSHS$; 
Longword unsigned; /* Mask for hash P setae 
FILL_1 Longword fill; /* Spare lLongword 
SIZE word unsigned; /* Size of LNMHSh in —— 
TYPE byte unsi 3 /* Structure tee for LNMHSH 


FILL 2 byte fit; /* Spare byt 
constant “BUCKET” equals . prefix LNMHSHS$ tag C; /* Length 4 fixed part of LNMHSH 
a tl “BUCKET equals . prefix LNMHSHS tag K; /* Length of fixed part of LNMHSH 


end_module SLNMSTRDEF ; 
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